Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
if (x mod 2 = 0) then writeln('true')
else writeln ('false');
end.
(в программе 2 таких чисел не существует)
Program n_2;
var x, y:integer;
begin
readln(x);
y:=x*x;
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
x:=x*x*x;
if (x=y) then writeln('true')
else writeln ('false');
end.
Program n_3;
var a, b, c:integer;
begin
read(a, b, c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln ('false');
end.
begin
var x := 10.0;
// Write(x:0:3, ' ');
loop 9 do
begin
x := x * 20 / 21;
// Write(x:0:3, ' ');
end;
Write('x = ', x:0:3)// x = 6.446
end.
<u>PascalABC.NET 3.2, сборка 1379 от 21.01.2017</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,k):=(ReadInteger('n='),1);
Write('Делители: ');
for var i:=1 to n div 2 do
if n mod i=0 then begin Print(i); k+=1 end;
Writeln(n);
if k=2 then Writeln('Число простое')
end.
<u>Примеры</u>
n= 97
Делители: 1 97
Число простое
n= 45
Делители: 1 3 5 9 15 45
Ответ:
2550
Объяснение:
Алгоритм находим сумму вида 2+4+6+...+98+100.
Это сумма арифметической прогрессии и она равна
(2 + 100) / 2 × 50 = 102 / 2 × 50 = 51 × 50 = 2550