Предмет: Информатика,
автор: mafiozznik
Найдите сумму нечетных чисел от а до 100, а вводится с клавиатуры (Pascal ABC)
Ответы
Автор ответа:
1
Ответ:
program aaa;
type iint = 1..100;
var a: iint;
i, s:integer;
begin
readln(a);
s:=0;
for i:=a to 100 do
if odd(i) then
s:=s+i;
writeln(s)
end.
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Другие предметы,
автор: egorka20022000
Предмет: Русский язык,
автор: катя159
Предмет: Биология,
автор: Аноним
Предмет: Математика,
автор: 89243459064