Question

1) Определить, является ли введенное с клавиатуры число трехзначным? 2) Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

Answer 1

1)program b1;var a:real; //real, потому что может быть число как и целое так и дробное.beginwrite('Введите число: ');readln(a);if (a>=100) then writeln('Число ', a, ' является трехзначным')end.
2) 
program b2;var a:integer;beginwrite('Введите число: ');readln(a);beginif a>0 then Inc(a) else writeln(a)end;writeln(a)end.