Vara,b,sum:real;beginread(a,b);sum:=0;sum:=abs(a-b);write(sum);end.
Var A,B,i : Integer;
Begin
Readln(A,B);
For i:=A to B do Writeln(Sqr(i));
end.
Правильные: В) и (Б)
неправильные: (А)
правильно должно быть так:
(А) - PowerPaint*...и дальше предложение
Как то так, если не трудно поставь лайк, и в лучшее с:
Program ryazantsev;
var n,k:integer;
begin
k:=0;
readln(n);
while n <> 0 do begin
if (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;
readln(n);
end;
writeln(k)
end.