Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
i - цикловая переменнаяs1 - сумма нечётных чисел от 1 до 100s2 - сумма чётных чисел от 1 до 100vari, s1, s2 : integer; begins1 : = 0; s2 : = 0; for i : = 1 to 100 do beginif i mod 2 = 0 thens2 : = s2 + i; elses1 : = s1 + i; end; writeln ('сумма четных чисел: ', s2); writeln ('сумма нечетных чисел: ', s1); end.
program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln(' ',m: 2: 2,' кг'); readln; end.
var d,i: integer;
s: string;
begin
read(d);
s: =str(d);
for i: = 1 to length(s) do
if int(s[i]) mod 2=0 then
writeln(s[i]);
end.
к серому волку. потому что и к серому волку и к бабушке сразу пойти нельзя.
Популярные вопросы