1) Определить, является ли введенное с клавиатуры число трехзначным?

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

Question

Информатика

Енюха

28 сентября, 00:23

1) Определить, является ли введенное с клавиатуры число трехзначным?

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

+4

Ответы (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.