Ответ:
Б. числовой
Объяснение:
в денежном формате разделитель групп разрядов не получится убрать, будет выглядеть так: 1 000,00 с пробелом после 1-цы
1 a)
var
a: integer;
begin
readln(a);
if a mod 2 = 0 then
println('da')
else println('net');
end.
======================================
1 б)
var
a: integer;
begin
readln(a);
if a mod 10 = 7 then
println('da')
else println('net');
end.
================================
2 а
var
a: integer;
begin
readln(a);
if (a div 10+a mod 10) mod 3 = 0 then
println('da')
else println('net');
end.
======================================
2 б
var
n,a: integer;
begin
writeln('Введите число');
readln(n);
writeln('Введите a');
readln(a);
if (n div 10+n mod 10) mod a = 0 then
println('da')
else println('net');
end.
Var
a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
read(a[i]);
end.
5+1=6 (2)
6+1=7 (2)
7+1=8 (2)
8*3=24 (1)
24+1=25 (2)
ответ 22212
Var
N1,N2,A:integer;
B:longint;
k:boolean;
Begin
Write('N1 = ');ReadLn(N1);
Write('N2 = ');ReadLn(N2);
For N2:= N1 to N2 do
Begin
k:=true;
A:=N2;
B:=A*A;
While A<>0 do
Begin
if (A mod 10 <> B mod 10) then k:=false;
A:= A div 10;
B:= B div 10;
End;
if k then Write(N2,' ');
End;
End.
Пример:
N1 = 0
N2 = 65536
0 1 5 6 25 76 376 625 9376