Напишите программу, которая принимает с клавиатуры числа, пока не будет введено значение 999. Программа должна подсчитать, сколько значений было
10-11 класс
|
введено с клавиатуры (не считая значения 999) и вывести эту информацию на экран.
var n,count:integer;
begin
repeat
readln(n);
if(n<>999) then inc(count);
until(n=999);
writeln(count);
readln;
end.
Другие вопросы из категории
знаков после точки.
x<2.8; 2.8<=x<6; x>=6 исходные данные: a=2.1; b=-0.29 шаг изменения: x принадлежит [0;7]; дельта x=0.5
Нужна прога, где на экран будут выведены все числа от 1000 до 9999 и перед ними написано слово, допустим, роза. То есть входящие данные - слово.
Выходящие:
Слово1000
Слово1001
Слово1002 и т. д. Можно ли создать такую и если да, то как?
положительных элементов матрицы. полученную матрицу x и среднее арифмитическое распечатать
Читайте также
в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))