Подсчитать количество и сумму чисел кратных 3 в диапазоне от -30 до 30.
5-9 класс
|
Срочно!!!!В программе Pascal!!!
var
i,k,s : integer;
begin
k := 0;
s := 0;
for i := - 30 to 30 do
if i mod 3 = 0 then
begin
k := k +1;
s := s + i;
end;
writeln (k);
writeln (s);
end.
program z;
var i,s,k:integer;
begin
s:=0;
k:=0;
for i:=-30 to 30 do
if i mod 3=0 then
begin
s:=s+i;
k:=k+1;
end;
write(s,' ',k);
end.
а тебе -30 и 30 включительно?
А если подробно объяснить кто сможет,тот прям наилучшим будет(ответ того будет правильным)
Другие вопросы из категории
2)Сколько бит информации содержит сообщение 4 гигабайта?
выручает получит больше 50 баллов и выше! Заранее спасибо
1 мегабайт =...... бит
1 гигабайт = ..... бит
Я вас умоляю помогите. Я сейчас в школе и у меня по информатике идёт контрольная работу.
Читайте также
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 3.
(Pascal)
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 3. входные данные:3,12,25,9 выходные 21
последовательности, а затем сами числа. В последовательности всегда имеется число кратное 6. Кол-во чисел не превышает 100. Введённые числа не привышают 300. Программа должна ввести одно число - сумму чисел кратных 6
2)В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.