Составить программу . вводить последовательно пока средне арифметическое не будет равно10

Знания

Информатика

1 ответ:

ИвАнЬ [7]4 года назад

0 0

Program ex1;
var a,sum,k:integer;
sr:real

begin

do
  begin
  writeln("Введите число");
  readln(a);
sum:=sum+a;
k:=k+1;
sr:=sum/k;
  end;
while (sr<>10);

writrln("Программа выполнено успешно!");
end.

Читайте также

Картина в музее способ формы восприятия

Klondaik [48]

Картина в музее это визуальная форма восприятия

0 0

4 года назад

Для того чтобы средний календарный год лучше соответствовал солнечному, в юлианском, а потом и григорианском календаре ввели вис

Берикжан [14]

year = int(input())

if year % 4 == 0 and year % 100 != 0:

print('Високосный')

elif year % 400 == 0:

print('Високосный')

else:

print('Не виокосный')

0 0

4 года назад

Дано число, проверить сколько раз в него вмещается цифра 7. (Можно блок схему и программу, пожалуйста!)

D3US [62]

Задание указано некоректно. Надеюсь, вы имели в виду, сколько раз в заданное число можно вместить 7,то есть, сколько целых раз можно поделить на 7.

Код:

program school7;

Var a:Integer;

begin

Write('Введите число>> ');

ReadLn(a);

Write('В число ', a, ' цифра 7 вмещается ', int(a/7), ' раз(а)');

end.

0 0

4 года назад

Помогите с самостоятельной по информатике.Сделать нужно в виде блок-схем.

Гектор [362]

Лови свои блок-схемы.

0 0

1 год назад

Запиши программу на языке программирования Паскаль.Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.

Ленуличка [31]

Var chisl:array [1..5]of integer;
i,max:integer;
begin
for i:=1 to 5 do begin
Write(i,'-число='); Readln(chisl[i]); end;
max:=0;
for i:=1 to 5 do begin
if chisl[i]>max then max:=chisl[i]; end;
writeln'max chislo=',max);
end.

0 0

4 года назад