<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
// 1
var (x,y):=ReadReal2('Введите x и y:');
Writeln((x>0) and (y>0));
// 2
var a,c,d:longint;
Write('Введите число, его квадрат и куб: '); Read(a,c,d);
Writeln((a*a=c) and (a*a*a=d))
end.
<u>Пример</u>
Введите x и y: 3.5 1.8
True
Введите число, его квадрат и куб: 15 225 1225
False
Наверно ответ "в"
про алфавит
S = 2
n=2 n=3 n=4 n=5 (for n:=2 to 5 do)
s = s + n*2
s = 2 + 2*2 = 6
s = 6 + 3*2 = 12
s = 12 + 4*2 = 20
s = 20 + 5*2 = 30
s = 30
Открываешь Word, подводишь курсором к кнопкам, которые у тебя в кроссворде. Выходит комментарий к этим кнопочкам.
Таблица истинности. Таблица истинности