Регистрация
KSeNiYa2800
20.09.2021 02:57
Информатика
Есть ответ 👍

Решить информатику (паскаль ) четные числа делит на два , а нечетные -умножается на три;

131
357
Посмотреть ответы 2

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

NikNameXxX
NikNameXxX
4,4(82 оценок)
Uses crt; var a: array [1..15] of integer;     i: integer; begin writeln('дан массив'); for i: =1 to 15 do     begin     a[i]: =random(41)-20;     write(a[i]: 5);     end; writeln; writeln('преобразованный массив'); for i: =1 to 15 do     if a[i] mod 2=0 then write(a[i]/2: 5: 1)         else write(a[i]*3: 5); end.
kopechenkina
kopechenkina
4,8(45 оценок)
//pascal abc.net v3.1 сборка 1172 var   a,b,al: integer;   s,h: real; begin   read(a,b,al);   h: =b*sin(al);   s: =a*h*0.5;   writeln(s); end. пример ввода: 1 2 3 пример вывода: 0.141120008059867

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