Модель - продолжение данного выражения
BEGIN
Ввести число N, проверить, что оно 4-значное.
read(N);
if (N >= 1000) and (N <= 9999) then
begin
Найти 2 цифру
A2 = Int(N / 100) Mod 10;
Найти 4 цифру
A4 = N Mod 10;
Сравнить их
if A2 > A4 then write "Вторая цифра больше, чем четвертая";
if A2 < A4 then write "Вторая цифра меньше, чем четвертая";
if A2 = A4 then write "Вторая цифра равна четвертой";
else
write "Число должно быть 4-значным!";
end;
Конец
END.
Мальчик с пальчик, Карлик нос,Буратино,Карабас Барабас,Змей Горыныч, Царевна лягушка,
var
i,n,s, k : integer;
begin
s:=0;
readln (n);
for i:= 1 to n do begin
readln (k);
if k mod 10 =0 then s:= s+k;
end;
writeln (s);
end.
Ответ:
Я разбили это задание на четыре номер и во втором вы дали не полное условия