<span><em>Pascal ABC</em>
var x:integer;
begin
writeln ('Введите четырёхзначное число');
readln(x);
if (x div 1000 <> 0) and (x div 10000 = 0) then begin
if ((x div 100)=(x mod 100)) or (((x div 1000)=(x mod 10)) and (((x div 100) mod 10)=((x mod 100) div 10))) then
writeln ('Является перевёртышем') else
writeln ('Не является перевёртышем');
end else writeln ('Неверный ввод');
end.
</span><span>
</span>
Var S:real;
A,N,i:integer;
Begin
Write('N = ');Read(N);
S:=0;
i:=1;
Repeat
Read(A);
if (A mod 3 = 0)and(A mod 10 = 4) then S:=S+A;
i:=i+1
Until i > N;
WriteLn('S = ',S);
End.
Пример работы программы:
N = 5
1 24 74 54 36
S = 78
Использовать Робот
алг
нач
нц пока слева стена
закрасить
вниз
кц
закрасить
влево
нц пока сверху стена
закрасить
влево
кц
кон
//PascalABC.NET 3.1 сборка 1200
begin
var r := ReadInteger('r = ');
Writeln(6.28*r);
end.