1. "Подсчет пятерок". Вводятся семь целых чисел. Напишите программу, которая подсчитывает количество пятерок среди введенных чисел. Выходные данные: семь целых чисел Выходные данные: количество пятерок Пример ввода: 5 10 478 5 7 56 -123 Пример вывода: 2
var a,kol,i : longint; begin kol:=0; for i:=1 to 7 do begin readln(a); if a=5 then kol:=kol+1; end; writeln(kol); end.
2. "Подсчет чисел, больших 3". Вводятся десять целых чисел. Напишите программу, которая подсчитывает количество чисел, которые больше 3. Выходные данные: десять целых чисел Выходные данные: Kol Пример ввода: 2 10 478 5 7 3 -5678 3 777 3 Пример вывода: 5
var a,kol,i : longint; begin kol:=0; for i:=1 to 10 do begin readln(a); if a>3 then kol:=kol+1; end; writeln(kol); end.
3. Подсчет чисел, которые больше 3 и меньше 9". Вводятся n целых чисел. Напишите программу, которая подсчитывает количество чисел, которые больше 3 и меньше 9.
Выходные данные: n n целых чисел Выходные данные: kol - количество чисел больших 3 и меньших 9 Пример ввода: 9 10 478 5 7 3 -5678 7 777 3 Пример вывода: 3
var n,a,kol,i : longint; begin readln(n); kol:=0; for i:=1 to n do begin readln(a); if (a>3) and (a<9) then kol:=kol+1; end; writeln(kol); end.
4. "Подсчет 4 и 5". Вводятся n целых чисел. Напишите программу, которая подсчитывает количество четверок и пятерок среди введенных чисел.
Входные данные: n n целых чисел Выходные данные:kol1 - количество четверок Пример ввода:9 10 478 5 7 5 -5678 4 777 3 Пример вывода: 1 2
var n,a,kol1,kol2,i : longint; begin readln(n); kol1:=0; kol2:=0; for i:=1 to n do begin readln(a); if a=4 then kol1:=kol1+1; if a=5 then kol2:=kol2+1; end; writeln(kol1); writeln(kol2); end.
5. "Подсчет чисел, равных x". Вводятся n целых чисел и число x. Напишите программу, которая подсчитывает количество чисел, равных x.
Входные данные: n x n целых чисел Выходные данные: kol - количество чисел, равных x Пример ввода: 9 5 10 478 5 7 5 -5678 4 777 3 Пример вывода: 2
var n,a,x,kol,i : longint; begin readln(n,x); kol:=0; for i:=1 to n do begin readln(a); if a=x then kol:=kol+1; end; writeln(kol); end.
|