Оқушылар Интернеттен алынған ақпараттың авторын анықтай алмады. Құжаттың көшірме еместігін дәлелдеу әрекетін көрсетіңіз. Өтінем көмектесіңдерш

//Первая
var a,b,c:integer;beginread(a,b,c);if a>0 then a:=a*a else a:=a*a*a*a;if b>0 then b:=b*b else b:=b*b*b*b;if c>0 then c:=c*c else c:=c*c*c*c;write(a,' ',b,' ',c);end.
//вторая
var a,b,c:integer;beginread(a);if(a<100)or(a>999)then write('Заданное число не трехзначное!');if (a>99) and (a<1000)thenbeginb:=a*a;while a<>0 dobeginc:=c + a mod 10;a:=a div 10;end;c:=c*c*c;if c=a then write('Квадрат равен кубу суммы цифр')else write('Квадрат НЕ равен кубу суммы цифр')end;end.
//Третья
var a:integer;beginread(a);if a=1 then write('Январь');if a=2 then write('Февраль');if a=3 then write('Март');if a=4 then write('Апрель');if a=5 then write('Май');if a=6 then write('Июнь');if a=7 then write('Июль');if a=8 then write('Август');if a=9 then write('Сентябрь');if a=10 then write('Октябрь');if a=11 then write('Ноябрь');if a=12 then write('Декабрь');end.

А) операции div и mod работают только с целыми значениями;

Да.

b) Если a – целая, а b и c –вещественные, то допустима запись a:=b/c;

Нет, переменной целого типа нельзя присваивать значение вещественного типа.

с) Для вещественных переменных обычно применяется тип real;

Да.

d) round(x) - округление до целого, а trunc(x) - отсечение дробной части;

Да.

e) Значение 35000 входит в тип integer;

Да.

f) Все переменные описывают в разделе Var;

Нет, не все. Ещё, например, есть массивы, константы.

g) Исполнительная часть программы начинается с Begin и заканчивается end.;

Да.

i) В операторе read комментарии пишутся в кавычках.

Нет, если подразумевается, что апостроф это не кавычки. В апострофах (одинарные кавычки).