Алгебра
Английский
Биология
География
Геометрия
История
Русский
Обществознание
Физика
Химия
Информатика
Литература
МатематикаВопрос:
4. Сформулируйте условие задачи (что делает программа?) var a, s: integer; begin s:= 0; readln(a); while a0 do begin if (a mod 6=0) and (a mod 10 = 4) then s:=s+a; readln(a); end; writeln(s) end.
Ответ:
Эта программа считывает последовательность чисел, пока не встретит число 0. Она вычисляет сумму тех чисел в последовательности, которые одновременно кратны 6 и оканчиваются на 4. Результат (сумма) выводится на экран.
Ответ: Программа вычисляет сумму чисел, кратных 6 и оканчивающихся на 4, введенных с клавиатуры, до ввода числа 0.
Продолжай в том же духе, и у тебя все получится!Похожие
- 1. Определите значение переменной а после выполнения данного алгоритма: a := 3 b:= 7 b := 9+a*b a := b/5*a
- 2. Запишите значение переменной s, полученное в результате работы следующей программы. var n, s: integer; begin s := 0; for n := 3 to 7 do s:= s + 2 * n; write(s); end.
- 3. В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второго числа и т. д.). Определите, что будет напечатано в результате вы- полнения следующей программы. Var k, m, day: integer; Dat: array[1...10] of integer; Begin Dat[1]:= 2; Dat[2]:= 2; Dat[3]:= 3; Dat[4]:= 3; Dat[5]:= 2; Dat[6]:= 2; Dat[7]:= 5; Dat[8]:= 5; Dat[9]:= 6; Dat[10]:= 6; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] <= m then begin m:= Dat[k]; day := k; end; write(day); End.
- 5. * Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число - сумму чисел, кратных 3.
