Var a,b,c,d,i,n,s:integer;beginwriteln('vvedite n');readln(n);for i:=1000 to 9999 dobegina:=n div 1000;b:=n div 100 div 10 mod 10;c:=n div 100 mod 10;d:=n mod 10;end;s:=a+b+c+d;if s mod 2=0 thenwriteln('четно')else writeln('нечетно')end.
Алоритм приготовления блюда быстрого питания:
1) Высыпать в емкость содержимое пакетика
2) Налить в емкость 200 мл горячей воды
3) Тщательно перемешать
26+26 вроде так...........................
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,0,100); a.Println;
a.Average.Println
end.
<u>Пример</u>
65 11 46 1 81 74 17 45 5 79 92 10 39 41 42
43.2