Циклы с параметром. 1.вывести на экран через пробел все целые числа от а до в включительно оканчивающиеся на 3 и кратные 3. 2. вывести трёхзначные числа, десятичная запись которых оканчивается на 9, но не на 99. числа искать на интервале [a, b]. если таких чисел нет, вывести фразу «таких чисел нет». а и в вводить с клавиатуры. например: a) а=3 в= 118 вывод: 109 b) а=2 в=100 вывод: «таких чисел нет» 3. известна масса каждого предмета, загружаемого в автомобиль. определить общую массу груза.
// Внимание! Если программа не работает, обновите версию!
№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
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.