Регистрация
mongoliya1
02.08.2022 14:53
Информатика
Есть ответ 👍

Экран стал розовым (win 7) простите что не по предметам , ! что делать?

286
466
Посмотреть ответы 2

Ответы на вопрос:

concon1233
concon1233
4,4(87 оценок)
Перезагрузи компьютер. удачи
rahmaevrail201
rahmaevrail201
4,4(14 оценок)

var a,b,c,k: real;

begin

write('введите 1 число: ');

readln(a);

write('введите 2 число: ');

readln(b);

write('введите 3 число: ');

readln(c);

if (a=b) and (b=c) and (a=c) then

begin

k: =a*b*c;

writeln('объем куба равен ',k);

end else

begin

k: =2*(a*b+b*c+a*c);

writeln('площадь поверхности параллелипипеда равна ',k);

end;

end.

Популярно: Информатика