uses crt;
var i,s,a,b:integer;
begin
for i:=10 to 99 do
begin
a:=i div 10;
b:=i mod 10;
s:=a+b;
if s*s*s = sqr(i) then writeln(i);
end;
readln;
end.
2 и 4. Если, конечно, два правильных ответа
Ну зависит от языка,в паскале - <span>read и readln и вывода write и writeln</span>
1-ложь
2-истина
3-ложь
4-истина
5-истина
6-ложь
7-истина
8-ложь
9-истина
Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.