Предмет: Информатика,
автор: vfiekz17
Помогите написать программу в Паскале и блок-сxему.
Задача: ввести 10 чисел, если число положительное, то от него отнять 0,5, если число отрицательное, то ничего с ним не делать. Вывести результат на экран.
Ответы
Автор ответа:
0
var a,b,i: real;
begin
b:=0,5;
for i = 1 to 10 do
begin
readln (a);
if a<0 then
writeln (a)
else
a:=a-b;
writeln (a);
end;
end.
begin
b:=0,5;
for i = 1 to 10 do
begin
readln (a);
if a<0 then
writeln (a)
else
a:=a-b;
writeln (a);
end;
end.
Автор ответа:
0
спасибо
Автор ответа:
0
Отрицательные числа печатаются дважды. Немножко исправил:
var a,b: real;
i:integer;
begin
b:=0.5;
for i:= 1 to 10 do
begin
readln (a);
if a>0 then a:=a-b;
writeln (a);
end
end.
var a,b: real;
i:integer;
begin
b:=0.5;
for i:= 1 to 10 do
begin
readln (a);
if a>0 then a:=a-b;
writeln (a);
end
end.
Автор ответа:
0
Спасибо, что подправил, а то я паскалю самообучаюсь и могу делать мелкие огрехи))
Автор ответа:
0
Аналогично))
Автор ответа:
0
Большое вам спасибо!!!)
Похожие вопросы
Предмет: Физика,
автор: temirlanadnaev23
Предмет: Математика,
автор: mansurnamazov88
Предмет: Литература,
автор: varvarakartasheva
Предмет: Химия,
автор: DmitryPuhov
Предмет: Химия,
автор: obeyone