1. з) 28
2. \_°_/ сама не знаю.
Ответ:
FALSE
TRUE
s = abracadabra
s = '12'
t = '21'
s = 'Счет: ' + 10 - ошибка
t = '2.1' + 3 - ошибка
t = 'кино'
s := t * 5 - ошибка
writeln ('A'*x); - ошибка
Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
// Необходимо найти длины сторон всех прямоугольников,
// площадь которых равна заданному натуральному числу S.
// Стороны должны быть выражены натуральными числами.
// При этом решения, которые получаются перестановкой размеров сторон, считаются разными.
var S,i : word;
Begin
writeln ('Введите площадь прямоугольника');
readln (S);
writeln ('Возможные прямоугольники:');
for i:=1 to S do
begin
if (S mod i)=0 then
begin
writeln ('сторона а=',i,' сторона b=',S/i);
end;
end;
<span>End.</span>