1) Определить, является ли введенное с клавиатуры число трехзначным?
2) Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
Answers & Comments
raper789
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.
Answers & Comments
2)
program b2;var a:integer;beginwrite('Введите число: ');readln(a);beginif a>0 then Inc(a) else writeln(a)end;writeln(a)end.