сервис вопросов и ответовнайти среднее арифметическое всех трехзачных чисел кратных 6
10-11 класс|
|
Настёна13022003
03 июля 2013 г., 19:41:47 (10 лет назад)
Azamat10
03 июля 2013 г., 21:50:56 (10 лет назад)
Var i, sum, k : longint ;
Begin
For i:= 100 to 999 do
If i mod 6 = 0 then
begin
sum:= sum +i ;
k:= k +1 ;
End;
Writeln ( sum/k ) ;
End.
Ответить
Другие вопросы из категории
Дан массив целых чисел А [10]. Найти количество элементов массивов кратных 2. Диапазон элементов от -1000 до 1000. Если задача решается написанием
программы, то написать лучше в Паскале. Спасибо!
Ты смотришь телевизор.В данном случае ты-______ информации,телевизор- _________ информации.
Надо вставить пропущенные слова.
Помогите решить, пожалуйста!
Даны стороны трёх треугольников. Найдите сумму их периметров. Определите процедуру для расчёта периметра треугольника.
Написать программу для Pascal. Задача с использованием подпрограмм-процедур.
Читайте также
Помогите исправить программу. Она должна вычислять среднее арифметическое всех чисел в массиве меньших 50. Вот программа:
Program Zadacha;
Uses crt;
var a:array[1..1000] of integer;
c,i,n,s :integer;
s1: real;
begin;
clrscr;
writeln("Введите размерность массива);
readln(n);
writeln('Введите массив');
for i:=1 to n do
begin a[i]:=random(100);
if a[i]<50 then begin inc(c); s:=s+a[i];end;s:=s+a[i];s1:=s/N;
writeln('Массив A:');
for i:=1 to N do write(a[i]:4);
writeln;
writeln('Среднее арифметическое равно=',s1);
end;
end.
помогите пожалуйста по информатике. 1. Вычеслить сумму:(1/1+2) + (2/2+3)+(3/3+4)+...+(99/99+100) 2.Найти среднее арифметическое всех целых
чисел от 100 до 200
Это всё программы
Вы находитесь на странице вопроса "найти среднее арифметическое всех трехзачных чисел кратных 6", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.