Предмет: Информатика,
автор: rumiya201315
Напишите программу, которая принимает с клавиатуры целое число х, а затем – серию из 29 дополнительных целых чисел (вводимых с клавиатуры).
программа должна определить, сколько чисел в серии были равны значению переменной х, а сколько – были меньше значения переменной х.
Ответы
Автор ответа:
1
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.
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.
rumiya201315:
спасибочки)
Интересные вопросы
Предмет: Українська мова,
автор: sveta1225
Предмет: Английский язык,
автор: dmitryibilodid
Предмет: Українська мова,
автор: ырддцмджпидэамод
Предмет: Математика,
автор: 050276
Предмет: Русский язык,
автор: potemkinavic