Циклы с параметром.
1.Вывести на экран через пробел все целые числа от А до В включительно оканчивающиеся на 3 и кратные 3.
2. Вывести трёхзначные числа, десятичная запись которых оканчивается на 9, но не на 99. Числа искать на интервале [A, B]. Если таких чисел нет, вывести фразу «таких чисел нет». А и В вводить с клавиатуры. Например: a) А=3 В= 118 Вывод: 109 b) А=2 В=100 Вывод: «таких чисел нет»
3. Известна масса каждого предмета, загружаемого в автомобиль. Определить общую массу груза.
1.Вывести на экран через пробел все целые числа от А до В включительно оканчивающиеся на 3 и кратные 3.
2. Вывести трёхзначные числа, десятичная запись которых оканчивается на 9, но не на 99. Числа искать на интервале [A, B]. Если таких чисел нет, вывести фразу «таких чисел нет». А и В вводить с клавиатуры. Например: a) А=3 В= 118 Вывод: 109 b) А=2 В=100 Вывод: «таких чисел нет»
3. Известна масса каждого предмета, загружаемого в автомобиль. Определить общую массу груза.
More Questions From This User See All
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
№1
begin
var (a,b):=ReadInteger2('Границы интервала [A,B]:');
for var n:=a to b do
if (Abs(n mod 10)=3) and (n mod 3=0) then Print(n)
end.
Пример
Границы интервала [A,B]: -50 142
-33 -3 3 33 63 93 123
№2
begin
var (a,b):=ReadInteger2('Границы интервала [A,B]:');
var k:=0;
for var n:=a to b do begin
var m:=Abs(n);
if (m mod 10=9) and (m mod 100<>99) and (m>=100)
and (m<=999) then begin Print(n); k+=1 end
end;
if k=0 then Writeln('Таких чисел нет')
end.
Примеры
Границы интервала [A,B]: -200 160
-189 -179 -169 -159 -149 -139 -129 -119 -109 109 119 129 139 149 159
Границы интервала [A,B]: 52 101
Таких чисел нет
№3
begin
var n:=ReadInteger('Введите количество предметов:');
var m:=0.0;
for var i:=1 to n do begin
Write('Маcса предмета № ',i,': '); m+=ReadReal;
end;
Writeln('Масса груза равна ',m)
end.
Пример
Введите количество предметов: 5
Маcса предмета № 1: 24.62
Маcса предмета № 2: 8.1
Маcса предмета № 3: 132
Маcса предмета № 4: 24.5
Маcса предмета № 5: 52.7
Масса груза равна 241.92