Размер шрифта
A- A+
Межбуквенное растояние
Стандартное Среднее Большое
Цвет сайта
A A A A
Изоображения
Выкл Цвет ч/б
Дополнительно
Закрыть

Урок 4 - образец решения

1. Дано целое число. Является ли оно положительным?

Решение:

Program c1;
var a:integer;
begin
  write ('Введите число:');
  readln (a); 
  if a>0
        then write ('Да')
        else write ('Нет');
end.

Разделы сайта