Решения задач по программированию на языке Pascal
Решение задач по программированию на языке Pascal от простых до олимпиадных повышенного уровня
Задача: Написать программу на языке программирования Pascal, которая выводит сообщение
“Привет!”
“Начинаем изучать Pascal”
Решение:
Для написании этой программы необходимо использовать только оператор вывода writeln.
program primer;
begin
writeln(‘ “Привет!” ‘);
writeln(‘ “Начинаем изучать Pascal” ‘)
end.
Задача: Вывести на экран количество всех двухзначных чисел, сумма цифр которых делится на 2.
Решение:
program primer;
var a,sum:integer;
begin
sum:=0;
for a:=10 to 99 do
begin
if((a mod 10)+(a div 10)) mod 2=0 then
sum:=sum+1;
end;
writeln(‘Количество чисел, которых сумма двух их цифр кратна 2: ‘,sum,’.’);
end.
Ответ: сумма цифр которых делится на 2 = 45
Задача 2: Написать программу, которая определяет нечетное число при вводе с клавиатуры двух чисел с различной четностью.
Решение:
program primer2;
var a, c: integer;
begin
writeln(‘Введите одно четное и одно нечетное числа’);
readln(a, c);
if (a mod 2 <> 0) and (c mod 2 = 0) then
writeln(a,’ – нечетное число’)
else
if (a mod 2 = 0) and (c mod 2 <> 0) then
writeln(c,’ – нечетное число’)
else
writeln(‘нет нечётных чисел’);
end.
Задача 3: