Информатика Архивный вопрос

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

Нет комментариев

Ответы

Гость

//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.

3 комментария:

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

исправил

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