Информатика, опубликовано 2018-08-22 22:19:12 by Гость
Помогите !!написать программу которая для 3х значного числа если оно четное то возводит в квадрат ,а если не четное то находит сумму цифр
Ответ оставил Гость
Var
A: integer;
begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn(Квадрат введённого числа равен: , A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn(Сумма цифр введённого числа равна: , A);
end;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на