Окно — это элемент стеновой или кровельной конструкции, предназначенный для сообщения внутренних помещений с окружающим пространством, естественного освещения помещений, их вентиляции, защиты от атмосферных, шумовых воздействий и состоящий из оконного проёма с откосами, оконного блока, системы уплотнения монтажных швов, подоконной доски, деталей слива и облицовок; оконный блок — светопрозрачная конструкция, предназначенная для естественного освещения помещения, его вентиляции и защиты от атмосферных и шумовых воздействий;
program zz1;
var a, b, c, d, e, sum, pr:integer; //задаем переменные целого типа
begin
write(' введите первое число '); // вводим с клавиатуры первое число
read(a);
write(' введите второе число '); // вводим с клавиатуры второе число
read(b);
write(' введите третье число '); // вводим с клавиатуры третье число
read(c);
write(' введите четвертое число '); // вводим с клавиатуры четвертое число
read(d);
write(' введите пятое число '); // вводим с клавиатуры пятое число
read(e);
sum:=a + b + c + d + e;
pr:= a * b * c * d * e;
writeln(' сумма = ', sum); // выводим ответ
write(' произведение = ', pr);
end.м
Объяснение:
наверно так.
var
d1,d2,n:integer;
k,s:longint;
begin
Write('Введите натуральное двухзначное число: '); Read(n);
d1:=n div 10; d2:=n mod 10;
k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));
Write(n,': ');
if k=s then Writeln('Квадрат числа (',k,
') равен учетверенной сумме кубов его цифр')
else Writeln('Квадрат числа (',k,
') не равен учетверенной сумме кубов его цифр (',s,')')
end.