Рассматривается множество целых чисел, принадлежащих числовому отрезку [3394; 8599], которые удовлетворяют следующим условиям:
− остаток от деления на 3 равен 1;
− остаток от деления на 7 равен 5.
Найдите наибольшее из таких чисел и их сумму.
Гарантируется, что искомая сумма не превосходит 10в7.
Напишите через паскаль скрипт программы чтобы я мог разобраться и решить подобные задания
var
i: integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln('Программа находит 4-значные числа, которые делятся на 27');
writeln('Список таких чисел:');
for i:=1000 to 9999 do
if (i mod 27)=0 then writeln(i);
end.
Program Ilgiz98;
var
mass: array [1..20] of integer;
i, k, n: integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5');
write('Введите число N '); readln (n);
writeln('*** Вычисляю... ***');
k:=0;
writeln('Массив чисел:');
for i:=1 to 20 do
begin
mass[i]:=random(1000)-500;
writeln(mass[i]);
if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1;
end;
writeln();
writeln('Всего найдено ',k,' таких чисел');
end.
a. Н. Вирт
2. Линейная структура построения программы подразумевает
b. Последовательное выполнение всех элементов программы
3. Оператор присваивания имеет вид:
b. :=
4. Команда CLRSCR служит для
c. очистки экрана
5. раздел VAR служит
a. Для описания используемых переменных
6. Переменные – это:
a. величины, которые могут менять свое значение в процессе выполнения программы
7. Правильная строковая запись выражения
b. x-x*x*x/abs (x) +sin (x)
Так как скобки там не на что не влияют, то их отсутствие правильный вариант в отличае от пункта с
Пункт а тоже может быть верным в языке где степень определена как ***, например в Ruby это **. Без указания языка/универсальным будет ответ b
8. целочисленное деление можно выразить следующей функцией:
b. A div B
9. математическое выражение х2-7х+6 можно записать:
x*x-7*x+6
10. выражение на паскале (abs (x)-abs(y))/(1 + abs (1/s)) можно записать:
(|x|-|y|)/(1+|1/s|)
11. раздел операторов начинается служебным словом:
c. BEGIN
12. ввод данных с клавиатуры осуществляется с оператора:
b. READ, READLN
13. вывод данных на экран осуществляется с оператора:
a. WRITE, WRITELN
14. чему будет равно значение переменной М в результате выполнения серии операторов
N:=5;
Y:=2;
M:=N/5+3*Y*N
M = 1+3*2*5=31
15. тип переменных REAL это:
d. верного ответа нет