Составьте программу которая по введёному числу с клавиатуры возведёт его в квадрат если это данное число будет чётным. (пример Program p1, writeln итд)
Составьте программу которая по введёному числу с клавиатуры возведёт его в квадрат если это данное число будет чётным. (пример Program p1, writeln итд)
Гость
Ответ(ы) на вопрос:
ГостьProgram p1; var a: real; begin Writeln('Vvedite chislo'); Read(a); //Считаываем If a mod 2=0 then writeln(a*a); //если остаток от делания на 2= 0, тогда пишем возведенное в квадрат число end.
ГостьProgram n1;
Uses CRT;
Var x: integer;
begin
ClrScr;
Writeln('Vvedite chislo');
Readln(x);
If x mod 2=0 then writeln('kvadrat =',x*x)
else writeln('nechetnoye');
readln
end.
Не нашли ответ?
Похожие вопросы