Регистрация
Galya03
10.01.2020 12:47
Информатика
Есть ответ 👍

Даны 2 числа. если они положительные - умножить их на 3, иначе - возвести в квадрат. в pascal

130
489
Посмотреть ответы 3

Ответы на вопрос:

Kit1gvore
Kit1gvore
4,6(18 оценок)
Var a, b: integer; begin       write('a='); read(a);       write('b='); read(b);           if (a > 0) and (b > 0) then               writeln(3*a, ' ', 3*b)                                          else               writeln(a*a, ' ', b*b); end.
Anyablack11
Anyablack11
4,4(76 оценок)
  uses crt;       var a, b, x, y, newa, newb, newa2, newb2: integer;   begin      write('a='); read(a);       write('b='); read(b);         newa: =3*a; newb: = 3*b;         newa2: =sqr(a); newb2: =sqr(b);           if (a> 0) and (b> 0) then write('newa = ',newa,' | ', 'newb = ',newb)                                                    else write('newa = ',newa2,' | ', 'newb = ',newb2);   end.
gavrilovanasta
gavrilovanasta
4,5(38 оценок)

4+4=8-2=6+4=10-2=8+4=12

закономерность такова:

к числу прибавляется 4;

и отнимается 2;

Популярно: Информатика