4*sqr(a)*sqr(b)*b*(sqr(a)+4*a*b+4*sqr(b))
или
4*sqr(a)*sqr(b)*b*sqr(a+2*b) - это если учесть, что а²+4ab+4b² = (a+2b)²
X:=4;
y:=16;
t:=4;
x:=0; (остаток от деления 16 на 4)
y:=5; (4+1)
как то так
P.S. в скобках мои пояснения их писать не надо
1.
алг
нач
цел а
ввод а
вывод div(a, 1000), 'тонн'
кон
2.
var x, i: integer;
begin
write('Введите трёхзначное число: ');
readln(x);
if ( x <100 ) OR ( x>100 ) then writeln('Число не трёхзначное!')
else
begin
i :=x mod 10; write(i)
write(x div 100);
write(x div 10 mod 10);
end;
end.
3.
Было число ав
Стало число 2ав2
Разложим его на разряды
2ав2=2*1000+а*100+в*10+2=2002+100а+10в
По условию задачи это в 32 раза больше исходного двузначного числа ав, т.е.:
32ав=2ав2 ( Число ав тоже разложим на разряды, получим 10а+в)
32(10а+в)=2002+100а+10в
32(10а+в)=2002+10(10а+в)
32(10а+в)-10(10а+в)=2002
22(10а+в)=2002
10а+в=2002:22
10а+в=91
Итак, искомое число 91
<span>Тип CHAR символьный или строковый или литерный</span>
Const n=5;
var x : array[1..n] of integer;
i: integer;
function f(a:integer):integer;
var b:integer;
begin
b:=0;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
f:=b;
end;
begin
writeln('Введите ',n,' чисел:');
for i:=1 to n do read(x[i]);
readln;
for i:=1 to n do write(f(x[i]),' ');
writeln;
end.
Пример:
<span>Введите 5 чисел:
45 3954 6 406 18372
54 4593 6 604 27381</span>