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

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

Question

Информатика

Климентий

10 декабря, 08:40

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

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

+3

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