Помогите написать программы по информатике!!!
1) Ввести с клавиатуры любое целое число, если оно трехзначное и заканчивается на 3, то увеличить число в 5 раз. Если нет. То вывести исходное . Задание на ветвление
2)Ввести с клавиатуры натуральное число. Вывести на экран все числа, меньшие этого числа, которые делятся на 2 или на 5.Задание с циклом For
ВСЕ ЗАДАЧИ НА ПАСКАЛЕ!!!!
Ответы
1)
program Main;
var
n: integer;
begin
writeln('Введите целое число:');
readln(n);
if (n >= 100) and (n <= 999) and (n mod 10 = 3) then
begin
n := n * 5;
writeln(n);
end
else
begin
writeln(n);
end;
end.
Примечание:
n >= 100 проверяет, что n трехзначное.
n mod 10 = 3 проверяет, что n заканчивается на 3 (где mod - это оператор взятия остатка от деления).
2)
program Main;
var
n, i: integer;
begin
writeln('Введите натуральное число:');
readln(n);
for i := 1 to n - 1 do
begin
if (i mod 2 = 0) or (i mod 5 = 0) then
begin
writeln(i);
end;
end;
end.
Примечание:
for i := 1 to n - 1 do устанавливает цикл for, который будет повторяться от 1 до n - 1.
if (i mod 2 = 0) or (i mod 5 = 0) then проверяет, что i делится на 2 или на 5 (где mod - это оператор взятия остатка от деления).