Ответы
Ответ дал:
0
var
x: Integer;
begin
Write ('Введите целое число: ');
Readln (x);
if x mod 2 = 0 then
WriteLn ('Четное число в квадрате = ' + IntToStr (x * x))
else
WriteLn ('Нечетное число в кубе = ' + IntToStr (x * x * x));
end;
Ответ дал:
0
Спасибо вам большое! Но только можете написать на русском!
Ответ дал:
0
Я просто Вас УМОЛЯЮ! Спасите! https://znanija.com/task/31315308
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад