Объяснение:
1) четным. Функция a mod 2 возвращает остаток от деления числа а на 2.
Если остаток равен 0, то число а четное.
2) 20.
a = 100; b = 30; a = 100 - 3*30 = 10
c = b - a = 30 - 10 = 20
3) if переводится как если, и не только в условном операторе, а вообще по-английски.
4) (x=3) or (x=4).
Вообще-то любое из этих выражений может быть использовано, как условие.
Если нет проверки на равенство числу, то подразумевается проверка на равенство нулю.
Но, скорее всего, имеется ввиду именно это выражение.
5) if a<b then min := a; else min := b;
Ошибка: после min := a точка с запятой не нужна.
6) Условие: a < 17
7) Нет верного ответа, потому что не бывает треугольника с тремя прямыми углами.
8) Не могу ответить, потому что нет фрагмента программы.
1)
var
n,i,kv:integer;
begin
kv:=1;
readln (n);
for i:=1 to n do
begin
if (i>0) and (i mod 2= 0) and (i<>0) then kv:=i*i*i;
writeln (kv);
end;
end.
2)
var
n,i,sum:integer;
begin
readln (n);
for i:=1 to n do
begin
if (i>0) and (i mod 2<>0) then sum:=sum+i;
end;
writeln (sum);
end.