Var a: integer; //a - вводимое число n, s: integer; //n- количество введенных чисел, s - сумма этих чисел
begin n:= 0; //обнуляем счетчик s:= 0; a:= 1; {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись} while a <> 0 do begin writeln('Введите целое число'); readln(a); if a <> 0 then //Чтобы при подсчете среднего арифметического не учитывался 0 begin n:= n + 1; s:= s + a; end; end; writeln('Среднее арифметическое введенных чисел: ', s / n); end.
begin while a <= 1000 do begin writeln('Введите сумму покупки > 1000р'); readln(a); if a > 1000 then break else writeln('Ошибка! Введенная сумма покупки <= 1000p'); end; writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9); end. Данная программа проверяет, больше 1000 или нет, введенная стоимость покупки. Можно сделать проще без проверки: var a: real;
begin writeln('Введите сумму покупки > 1000р'); readln(a); writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9); end.
a: integer; //a - вводимое число
n, s: integer; //n- количество введенных чисел, s - сумма этих чисел
begin
n:= 0; //обнуляем счетчик
s:= 0;
a:= 1; {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
while a <> 0 do
begin
writeln('Введите целое число');
readln(a);
if a <> 0 then //Чтобы при подсчете среднего арифметического не учитывался 0
begin
n:= n + 1;
s:= s + a;
end;
end;
writeln('Среднее арифметическое введенных чисел: ', s / n);
end.