Предмет: Информатика,
автор: acer63
1)Написать программу вывода всех четных чисел от 2 до 1000 включительно
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
Ответы
Автор ответа:
0
1)
var
i: word;
begin
for i:=1 to 1000 do
if i mod 2 = 0 then write(i, ' ');
readln;
end.
2)
var
i: word;
sum: word;
begin
sum:=0;
for i:=1 to 99 do
if i mod 2 <> 0 then sum:=sum+i;
writeln('Summa = ', sum:5);
readln;
end.
var
i: word;
begin
for i:=1 to 1000 do
if i mod 2 = 0 then write(i, ' ');
readln;
end.
2)
var
i: word;
sum: word;
begin
sum:=0;
for i:=1 to 99 do
if i mod 2 <> 0 then sum:=sum+i;
writeln('Summa = ', sum:5);
readln;
end.
Автор ответа:
0
у меня обе программы работают, могу даже скрины предоставить. может, вы неправильно копируете, или запихнули обе программы в один файл .pas?
Похожие вопросы
Предмет: Английский язык,
автор: nikolai200675
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: turbaevzhanat30
Предмет: Алгебра,
автор: LinkaBlack
Предмет: Алгебра,
автор: Y4EHIK9