Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
uses crt; var
i,s1,s2: integer; begin for i: =1 to 100 do begin if i mod 2=0 then s1: =s1+i else s2: =s2+i; end; writeln('сумма четных чисел: ',s1); write('сумма нечетных чисел: ',s2); end.
program gh;
var a: array[ 1..10] of integer;
i: integer;
begin
for i: =1 to 10 do
a[i] : = random(20) + 20;
write(a[i]);
end;
end.
б< т
к< л
с< е
липа ниже березы
к< л< б< т
сосна выше тополя
к< л< б< т< с< е
самое высокое ель
самое низкое клен
3 отдельное слово
1 строка
5 абзац
2 весь текст
4 произвольный кусок
Популярные вопросы