Var
a, h:integer;
Begin
write('Основание параллелограмма: ');
readln(a);
write('Высота параллелограмма: ');
readln(h);
writeln('Площадь параллелограмма: ', a*h);
end.
Поесть ржаного пирожка у печки.
Поесть лесного яблочка у яблони.
Поесть киселька с молоком у речки.
=5*(A2+C3)/(2*B2-3*D3)
=(B2+C4)*(2*B2-3*D3) примечание: В условии не хватает одной открывающей скобки!!! Я поставил ее произвольно...
=2*(C2-C3)+(3^2*(4*K2-3*C5))
Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625