Напишите программу, которая принимает с клавиатуры целое число х, а затем – серию из 29 дополнительных целых чисел (вводимых с клавиатуры). программа должна определить, сколько чисел в серии были равны значению переменной х, а сколько – были меньше значения переменной х.
296
311
Ответы на вопрос:
Program z2; var x,i,n,r,m: integer; begin writeln('введите x'); readln(x); i: =1; r: =0; m: =0; while(i< =29) do begin readln(n); if(n=x) then r: =r+1; if(n< x) then m: =m+1; i: =i+1; end; writeln('чисел, равных х ',r); writeln('чисел, меньше х ',m); end.
знания о явлениях (смена времён года), знания о событиях (вов 1941–1945 знания о свойствах объектов (вода может находиться в трёх состояниях), знания о зависимостях между объектами (у квадрата все стороны равны).
Популярно: Информатика
-
Vika1711200301.10.2020 21:23
-
Alica265301.11.2021 17:19
-
danilpravdin05.04.2020 00:51
-
lesbekdauren109.05.2021 19:31
-
lassdeavs26.03.2022 22:16
-
kmatachp01gzm18.02.2021 19:23
-
mklslajh18.03.2020 03:33
-
lilija64705.09.2020 00:10
-
DimaKravshenco07.08.2021 12:40
-
Adilet3737373711.04.2022 07:24