Всем информатикам сюда. Помогите пожалуйста,люди добрые...(
5-9 класс
|
1)S=1+2+3...+10
for, while, repeat.
2)S=2+4+6+8...+20
for, while, repeat.
надо короче решить с помощью этих трех программ этот пример. что бы выходил этот ответ...помогите пожалуйста.
1) Program LoopFor;
Uses Crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do s:=s+i;
writeln('Сумма чисел от 1 до 10: ',s);
readkey;
end.
Program LoopWhile;
Uses crt;
var s,i:integer;
begin
clrscr;
s:=0;i:=1;
while(i<10) do s:=s+i;
writeln('Сумма чисел от 1 до 10: ',s);
readkey;
end.
Program LoopUntil;
Uses Crt;
var s,i:integer;
begin
clrscr;
s:=0; i:=1;
repeat
s:=s+i;
until(s=10);
writeln('Сумма чисел от 1 до 10: ',s);
readkey;
end.
2) Program LoopFor2;
Uses Crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=2 to 20 do
begin
s:=s+i;
i:=i+2;
end;
writeln('Сумма чисел от 2 до 20: ',s);
readkey;
end.
Program LoopWhile2;
Uses Crt;
var s,i:integer;
begin
clrscr;
s:=0;i:=2;
while(i<20) do
begin
s:=s+i;
i:=i+2;
end;
writeln('Сумма чисел от 2 до 20: ',s);
readkey;
end.
Program LoopUntil2;
Uses Crt;
var s,i:integer;
begin
clrscr;
s:=0;i:=2;
repeat
s:=s+i;
i:=i+2;
until (s=20)
writeln('Сумма чисел от 1 до 20: ',s);
readkey;
end.
Другие вопросы из категории
файла в секундах.
количество дней в каждом из месяцев. Только на уровне 8 класса пожалуйста!
Читайте также
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)
надо люди добрые
1.В ящике имеется 3 чёрных и 5 белых шаров.Какое наименьшее число шаров нужно взять из ящика ( не заглядывая в него), чтобы среди вытянутых шаров:.
1)Оказался хотя бы 1 чёрный
2)Оказался хотя бы 1 белый
3)Оказались хотя бы 2 чёрных
4)Окаазались хотя бы 2 белых
Если можно с решением,логическим рядом.
2. В одной книге было написано 100 следующих утерждений.
"В этой книге роно одно неверное утверждение"
"В этой книге ровно два неверных утверждения"
............................................................................................
"В этой книге ровно сто неверных утверждений.
Какое из этих утерждений верное?
Судя по моим мыслям,это явно не 3, тогда это получается правда, что противоречит смыслу предложения. Тогда какое получается? Я не знаю.Помогите пожалуйста. Напишите всё с решением пожалуйста.
Ах да,чуть не забыла. Если кто -то знает бесплатный решебник ( без всяких файлообменников) напишите пожалуйста.
заглядывая в него), чтобы среди вытянутых шаров:. 1)Оказался хотя бы 1 чёрный 2)Оказался хотя бы 1 белый 3)Оказались хотя бы 2 чёрных 4)Окаазались хотя бы 2 белых Если можно с решением,логическим рядом. 2. В одной книге было написано 100 следующих утерждений. "В этой книге роно одно неверное утверждение" "В этой книге ровно два неверных утверждения" ............................................................................................ "В этой книге ровно сто неверных утверждений. Какое из этих утерждений верное? Судя по моим мыслям,это явно не 3, тогда это получается правда, что противоречит смыслу предложения. Тогда какое получается? Я не знаю.Помогите пожалуйста. Напишите всё с решением пожалуйста. Ах да,чуть не забыла. Если кто -то знает бесплатный решебник ( без всяких файлообменников) напишите пожалуйста.
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.