Question

Циклы с параметром.
1.Вывести на экран через пробел все целые числа от А до В включительно оканчивающиеся на 3 и кратные 3.
2. Вывести трёхзначные числа, десятичная запись которых оканчивается на 9, но не на 99. Числа искать на интервале [A, B]. Если таких чисел нет, вывести фразу «таких чисел нет». А и В вводить с клавиатуры. Например: a) А=3 В= 118 Вывод: 109 b) А=2 В=100 Вывод: «таких чисел нет»
 3. Известна масса каждого предмета, загружаемого в автомобиль. Определить общую массу груза.

Answer 1

//1
var A, B, i: integer;
begin
  write('Введите A и B: '); readln(A, B);
  for i := A to B do
    if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i);
end.

//2
var
  A, B, i, k: integer;
begin
  write('Введите A и B: '); readln(A, B);
  for i := A to B do
    if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then
    begin
      writeln(i);
      k := k + 1;
    end;
    if k = 0 then writeln('Таких чисел нет.');
end.


//3
var sum, i, n: integer;
begin
  write('Введите количество предметов: '); readln(n);
  for i := 1 to n do
  begin
    readln(n);
    sum := sum + n;
  end;
  writeln('Общая масса = ', sum);
end.


//3 с другим циклом
var sum, n: integer;
begin
  writeln('Введите 0 для завершения ввода.');
  repeat
    readln(n);
    sum := sum + n;
  until n = 0;
  writeln('Общая масса = ', sum);
end.

Answer 2

А можно второе без boolean решить? Просто мы вроде еще не проходим такое

Answer 3

исправил

Answer 4

Программы 1 и 2 не будут работать для отрицательных чисел. В условии не сказано, что числа натуральные. аналогично, в программе 3 нельзя ввести нецелые значения массы груза.