Информатика, опубликовано 2018-08-22 19:28:14 by Гость
Ввести три числа четные числа возвести в квадрат не четные оставить без изменений!!! помогите плиз
Ответ оставил Гость
Var a,b,c:integer;begin Read(a,b,c);If a mod 2=0 thena:=a*a;If b mod 2=0 thenb:=b*b;If c mod 2=0 thenc:=c*c;Writeln(a, ,b, ,c)end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.