Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. Использовать оператор repeat.
Предмет:
ИнформатикаАвтор:
nicole98program z8_1;uses crt;vari:shortint;k,n:byte;s:integer;sa:real;beginclrscr; i:=1;repeatread(i);if i>0 then begink:=k+1;s:=s+i;end;until i=0;sa:=s/k;write('Количество чисел:',k,' Сумма чисел:',s,'Среднее арифметическое:',sa:4:2);readkeyend.
Автор:
miniДобавить свой ответ
Помогите составить диалог на тему"Много снега зимой на полях-это хорошо или плохо?"
Предмет:
Русский языкАвтор:
irelandqi5nОтветов:
Смотреть
Помогите друзья!! Тригонометрия
Вычислить sin Альфа, tg Альфа, cos2 Альфа,
если cos Альфа = - 4/5 и П/2 < Альфа < П
(П) - пи
(/ ) - дробь
И ещё маленькое задание:
Найти значение выражения:
1. кос 135 = ?
2. син 8П/3 = ?
3. тг 7П/3 = ?
4. кос^2 П/8 - син^2 П/8 = ?
Предмет:
МатематикаАвтор:
cupcakegtkkОтветов:
Смотреть
ребёнок,качающейся на качелях,проходит путь от максимально высокого правого положения до положения равновесия за 1 с.период колебаний качелей 1)0.5 2)1с 3)2с 4)4с
Предмет:
ФизикаАвтор:
frankielqsmОтветов:
Смотреть
Предмет:
Русский языкАвтор:
lancekea4Ответов:
Смотреть