program raf105;
var
i,n: integer;
begin
write('Введите число: ');
readln(n);
write('Чётные: ');
for i:=1 to n do
if i mod 2 = 0
then write(i,' ');
writeln;
write('Нечётные: ');
for i:=1 to n do
if i mod 2 <> 0
then write(i,' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function MaxDigit(n:integer):integer;
begin
Result:=0;
while n>0 do begin
var m:=n mod 10;
if m>Result then result:=m;
n:=n div 10
end
end;
begin
var n1,n2:integer;
Write('Введите через пробел два натуральных числа: ');
Read(n1,n2);
Writeln('s=',MaxDigit(n1)+MaxDigit(n2))
end.
<u><em>Тестовое решение</em></u>
Введите через пробел два натуральных числа: 53252 4654083
s=13
Ответ:
Объяснение:
1) program z1;
var a,sum:integer;
begin
a:=0;
sum:=0;
while (a<0) or (a=0) do
begin
sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
2) program z2;
const N = 10;
var i:integer;
var b,d:real;
var a:array[1..N] of integer;
begin
for i:=1 to N do
readln (a[i]);
for i:=1 to N do
write(a[i]:4);
writeln;
for i:=1 to N do
begin
b:=sqrt(a[i]);
d:=frac(b);
if d=0 then
write (a[i]:4);
end;
end.