1.Найти произведение всех целых чисел от а до 100 (а меньше 100) кратных 17,но не кратных 2 2.Вычислите: 98+96+94+92+90+88+,,,,,+6+4+2 3.Определить и вывести на экран количество трехзначных чисел,которые делятся без остатка на ...
1.Найти произведение всех целых чисел от а до 100 (а<100) кратных 17,но не кратных 2 2.Вычислите: 98+96+94+92+90+88+,,,,,+6+4+2 3.Определить и вывести на экран количество трехзначных чисел,которые делятся без остатка на 5 и 21 одновременно. 4.спортсмен пробежал в 1-ый день тренеровки расстояние 10 км. В каждый следующий день он робегал на 3 км больше ,чем в предыдущий. Определить Суммарное расстояние. 5. в Пионерском лагере n отрядов с различным количеством детей. Сколько всего детей в пионерском лагере?
Гость
Ответ(ы) на вопрос:
ГостьProgram z1; Uses Crt; var a,i:integer; p:longint; begin clrscr; p:=1; write('Введите число а: '); readln(a); for i:=a to 100 do p:=p*a; writeln('Произведение всех чисел от ',a,'до 100:',p); readkey; end. Program z2; Uses Crt; var s,i:integer; i:=2;s:=0; while(i<=98) do begin s:=s+i; i:=i+2; end; clrscr; write('Сумма последовательности: ',s); readkey; end. Program z3; Uses Crt; var a,i:integer; begin clrscr; a:=0; for i:=100 to 999 do if ((i mod 5)=0 and (i mod 21)=0) then a:=a+1; write('Количество 3-значных чисел делящихся без остатка на 5 и 21: ',a); readkey; end. Program z4; Uses Crt; var a,i,s:integer; begin clrscr; s:=10: write('Введите количество тренировочных дней: '); readln(a); for i:=2 to a do s:=s+3; write('Суммарное расстояние: ',s); readkey; end. Program z5; Uses Crt; var a,i,n,s:integer; begin clrscr; write('Введите количество отрядов: '); readln(n); s:=0; for i:=1 to n do begin write('Введите количество детей в ',i ,'-м отряде:' ); readln(a); clrscr; s:=s+a; end; writeln; writeln('Общее количество детей в лагере:',s); readkey; end.
Не нашли ответ?
Похожие вопросы