Информационный сайт учителя Информатики и Экономики

Щёголевой А.П.

В помощь учителям, ученикам и деловым людям

Решения задач по программированию на языке Pascal

Автор Anna Опубликовано: 25 - января - 2017

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

Поделиться ссылкой с друзьями:

Написать комментарий