Решения задач по программированию на языке 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:

Рейтинг
( 1 оценка, среднее 4 из 5 )
Полезные записи:
Добавить комментарий

;-) :| :x :twisted: :smile: :shock: :sad: :roll: :razz: :oops: :o :mrgreen: :lol: :idea: :grin: :evil: :cry: :cool: :arrow: :???: :?: :!: