сервис вопросов и ответовВсем информатикам сюда. Помогите пожалуйста,люди добрые...(
5-9 класс|
|
1)S=1+2+3...+10
for, while, repeat.
2)S=2+4+6+8...+20
for, while, repeat.
надо короче решить с помощью этих трех программ этот пример. что бы выходил этот ответ...помогите пожалуйста.
Sanakashnikov
07 мая 2015 г., 11:27:23 (8 лет назад)
Lisenok99936
07 мая 2015 г., 14:07:29 (8 лет назад)
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.
Ответить
Другие вопросы из категории
Скорость передачи данных через аналоговый модем равна 128000бит/с. Через данное соединение передают файл размером 375 Килобайт. Определите время передачи
файла в секундах.
Написать программу, которая бы по введенному номеру времени года(1-зима 2-весна 3-лето 4-осень) выдавала соответствующие этому времени года месяцы,
количество дней в каждом из месяцев. Только на уровне 8 класса пожалуйста!
Читайте также
Люди Люди Люди если вы читаете это сообщение значит вы просто обязаны помочь! пожалуйста если у вас есть паскаль помогите пожалуйста решить первое и
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)
помогите пожалуйста задания Всероссийского конкурса "Кит-компьютеры, информатика,технологии. 8-9 классы 2014 год кто знает помогите пожалуйста на завтра
надо люди добрые
Здравствуйте!Помогите пожалуйста с информатикой!
1.В ящике имеется 3 чёрных и 5 белых шаров.Какое наименьшее число шаров нужно взять из ящика ( не заглядывая в него), чтобы среди вытянутых шаров:.
1)Оказался хотя бы 1 чёрный
2)Оказался хотя бы 1 белый
3)Оказались хотя бы 2 чёрных
4)Окаазались хотя бы 2 белых
Если можно с решением,логическим рядом.
2. В одной книге было написано 100 следующих утерждений.
"В этой книге роно одно неверное утверждение"
"В этой книге ровно два неверных утверждения"
............................................................................................
"В этой книге ровно сто неверных утверждений.
Какое из этих утерждений верное?
Судя по моим мыслям,это явно не 3, тогда это получается правда, что противоречит смыслу предложения. Тогда какое получается? Я не знаю.Помогите пожалуйста. Напишите всё с решением пожалуйста.
Ах да,чуть не забыла. Если кто -то знает бесплатный решебник ( без всяких файлообменников) напишите пожалуйста.
Здравствуйте!Помогите пожалуйста с информатикой! 1.В ящике имеется 3 чёрных и 5 белых шаров.Какое наименьшее число шаров нужно взять из ящика ( не
заглядывая в него), чтобы среди вытянутых шаров:. 1)Оказался хотя бы 1 чёрный 2)Оказался хотя бы 1 белый 3)Оказались хотя бы 2 чёрных 4)Окаазались хотя бы 2 белых Если можно с решением,логическим рядом. 2. В одной книге было написано 100 следующих утерждений. "В этой книге роно одно неверное утверждение" "В этой книге ровно два неверных утверждения" ............................................................................................ "В этой книге ровно сто неверных утверждений. Какое из этих утерждений верное? Судя по моим мыслям,это явно не 3, тогда это получается правда, что противоречит смыслу предложения. Тогда какое получается? Я не знаю.Помогите пожалуйста. Напишите всё с решением пожалуйста. Ах да,чуть не забыла. Если кто -то знает бесплатный решебник ( без всяких файлообменников) напишите пожалуйста.
Помогите,пожалуйста,написать программу по информатике.Вот такое условие:
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Вы находитесь на странице вопроса "Всем информатикам сюда. Помогите пожалуйста,люди добрые...(", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.