Вывести все натуральные числа от 20 до 50 кратные 3 и не кратные 5 ( на паскале)

246

335

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

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

Mymir06

Информатика

4,8(56 оценок)

Pascalabc.net 3.4.2, сборка 1837 от 11.10.2018 внимание! если программа не работает, обновите версию!

begin

range(20, 50).where(t -> (t mod 3 = 0) and (t mod 5 < >

end.

21 24 27 33 36 39 42 48

Basrad

Информатика

4,5(71 оценок)

Uses crt; var i,b,x,q: integer; c: real; var a: array [1..3] of integer; begin clrscr; writeln('введите числа'); for i: =1 to 3 do read(a[i]); q: =1; for i: =1 to 3 do begin if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then x: =x+1; if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then b: =b+a[i]; if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then q: =q*a[i]; c: =b/x; end; writeln('среднее арифметическое = ',c); writeln('произведение = ',q); end.