Var i,s:integer;
begin
s:=0;
for i:=20 to 450 do
if (i mod 4 = 0) then s:=s+i;
writeln(s);
end.
Правильный ответ B)
В док.файлах
В сообщении "Завтра в школу" 14 символов, включая пробелы. При стандартном кодировании 1 символ занимает 1 байт, следовательно все сообщение будет занимать 14 байтов
// PascalABC.NET 3.0, сборка 1088
var
s1,s2:string;
d:integer;
begin
Write('Первая строка: '); Readln(s1);
Write('Вторая строка: '); Readln(s2);
d:=Length(s1)-Length(s2);
if d>0 then Writeln('Первая строка длиннее на ',d)
else
if d<0 then Writeln('Вторая строка длиннее на ',-d)
else Writeln('Строки имеют равную длину')
end.
Program naimen;
Var A, B: integer;
begin
Write ('Введите число А=');
Read (A);
Write ('Введите число B=');
Read (B);
If A<B then
Write ('Наименьшее число А')
else Write ('Наименьшее число В');
end.