Дано целое число. Если оно является положительным, то прибавить к нему 8; в противном случае не изменять его. Вывести полученное число.
a. rogram cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a+8;
writeln(a);
readln;
end.
b. program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a;
writeln(a);
readln;
end.
c. program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a < 0 then a:=a+8;
writeln(a);
readln;
end.
186
269
Ответы на вопрос:
Здесь «Числа Фибоначчи»
5 + 3 = 8
8 + 5 = 13
13 + 8 = 21
21 + 13 = 34
34 + 21 = 55
И так далее
Популярно: Информатика
-
artgensh11.10.2021 20:44
-
Владаhi30.04.2022 18:03
-
Glupuj22.11.2020 17:17
-
Лубаша13.11.2022 10:11
-
катюха13456788900009.12.2021 20:47
-
анютка678031.01.2021 16:02
-
gerasimenkocatia10.11.2020 02:05
-
pankivk08.04.2023 16:39
-
ангел8143309.01.2021 11:09
-
Lolkekcheburek22832226.12.2021 03:05