помогите решить задачу на Паскале! вычислить сумму чисел от 3 до 9, кратных 4
5-9 класс
|
Program Summa;
Uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=3 to 9 do
if (i mod 4)=0 then s:=s+i;
writeln('Сумма равна:',s);
readkey;
end.
Другие вопросы из категории
Результатом одного измерения является целое число от 0 до 100 процентов, которое записывается при помощи минимально возможного количества бит. Станция сделала 80 измерений. Определите информационный объем результатов наблюдений.
33,8 байт перевести в бит кб мб гб
срочно
размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 8 битами
Требуется заполнить массив именно так:
X = [3 4 7 8 11 12]
Какой оператор надо поместить в тело цикла вместо многоточия?
for k:=1 to 6 do begin
...
end;
1) X[k] := 3*k - k mod 2
2) X[k] := 2*k + k mod 2
3) X[k] := 2*k - k mod 2
4) X[k] := 2*k + k div 2
5) X[k] := 2*(k - 1)
Ответ -?
mod(берется остаток)
div(целое число берется)
Читайте также
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
клавиатуры,в порядке возрастания.