Задание №1
1А. A := -5.7 - вещественная
1B. D := True - логическая
1C. C := 105 - целая
1D. D := 'Hello' - строковая
Задание №3
P = 11.4
A = 2.7
В = 3
P и A - точно Real
B - по логике задачи тоже должно быть Real: стороны вводятся в виде вещественных чисел, хотя ее можно объявить и как Integer, тогда при вычислении будет сделано преобразование к одному типу - Real
Вот пожалуйста что не понятно говорите
1) НЕ( 123<10 ) ИЛИ НЕ( 123 ЧЁТНОЕ ЧИСЛО ) =
= НЕ(ЛОЖЬ) ИЛИ НЕ(ЛОЖЬ) =
= ИСТИНА ИЛИ ИСТИНА = ИСТИНА
2) НЕ( 56<10 ) ИЛИ НЕ( 56 ЧЁТНОЕ ЧИСЛО ) =
= НЕ(ЛОЖЬ) ИЛИ НЕ(ИСТИНА) =
= ИСТИНА ИЛИ ЛОЖЬ = ИСТИНА
3) НЕ( 9<10 ) ИЛИ НЕ( 9 ЧЁТНОЕ ЧИСЛО ) =
= НЕ(ИСТИНА) ИЛИ НЕ(ЛОЖЬ) =
= ЛОЖЬ ИЛИ ИСТИНА = ИСТИНА
4) НЕ( 8<10 ) ИЛИ НЕ( 8 ЧЁТНОЕ ЧИСЛО ) =
= НЕ(ИСТИНА) ИЛИ НЕ(ИСТИНА) =
= ЛОЖЬ ИЛИ ЛОЖЬ = ЛОЖЬ
var
i, j: integer;
begin
for i:= 1 to 99 do
for j:= i +1 to 100 do
if i*i*i = j*j then writeln(i,' ',j);
end.
Var n,k,i,j:integer;
begin
n:=0;
for i:=2 to 2020 do
begin
k:=2;
for j:=2 to i div 2 do
if i mod j = 0 then k:=k+1;
if k=4 then n:=n+1;
end;
writeln('n = ',n);
end.
Результат:
n = 571