Задачи на циклы 1. Напишите программу нахождения всех трехзначных чисел, сумма цифр которых равна числу А. 2. Составьте программу, подсчитывающую количество цифр вводимого вами целого неотрицательного числа. 3. Вычислить: 1+2+4+8+…+210 4. В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада? 5. В программу вводятся по очереди данные о росте N учащихся класса. Определит

Q: Составьте алгоритм, в котором вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних месяцев, осенних месяцев

так: Думаю тебе алгаритм ветвения,он состаит из вывода,условия,и начала,конца. Если ошибся,поправьте. Начало Вывод(указываем переменные,A,B.ну и т.д.) Да Условие(к примеру:A>=B) Нет

Question 1

Accepted Answer

21 22 23 24 25 26 27 28 29

Question 2

Найти произведение чисел n,которые делятся на 3 нацело.

Accepted Answer

Если N это количество чисел, начинаем с 3 var i,n,p:integer begin readln(n); i:=3; p:=1; while i<=3*n do begin p:=p*i; i:=i+3; end; writeln(p); end. Если N это верхняя граница чисел var i,n,p:integer begin readln(n); for i:=3 to n if i mod 3 = 0 then p:=p*i; writeln(p); end.

Question 3

Составьте алгоритм, в котором вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних месяцев, осенних месяцев

Accepted Answer

так:                                                                           Думаю тебе алгаритм ветвения,он состаит из вывода,условия,и начала,конца.                                                  Если ошибся,поправьте.                                                   Начало                                                                                   Вывод(указываем переменные,A,B.ну и т.д.)                  Да                               Условие(к примеру:A>=B)          Нет

Question 4

Нужно сделать программу: даны координаты точек на плоскости: x1, y1 и x2, y2. найти расстояние между точками. (паскаль)

Accepted Answer

var x1,x2,y1,y2,d:real; begin write('Введите координаты'); readln(x1,x2,y1,y2); d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); writeln(d); readln; end.

Question 5

Информатика написать программу вычесления модуля разности двух данных целых чисел

Accepted Answer

Паскаль; uses crt; var a,b:integer; begin clrscr; readln(a,b); writeln(abs(a-b)); readln; end.

Информатика: новые вопросы