Помогите пожалуйста) написать в паскале
Ввести три числа A, B, C четные числа увеличить в 10 раз, иначе уменьшить на 10 раз
Ответы
Ответ дал:
3
Var
A, B, C : integer;
Begin
Readln(A, B, C);
if A mod 2 =0 then A:= A * 10 else A:=A-10;
if B mod 2 =0 then B:= B * 10 else B:=B-10;
if C mod 2 =0 then C:= C * 10 else C:=C-10;
Writeln('A=', A);
Writeln('B=', B);
Writeln('C=', C);
Readln;
End.
Объяснение:
Я смог помочь!?
лизализа123456789:
Спасибо, помог очень)
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад