Определите количество чисел которое можно закодировать единицами,двойками и тройками в четырех позициях.
211
412
Ответы на вопрос:
procedure sm(a,b: integer);
var s: integer;
begin
s: =a+b;
if s< 0 then s: =s*(-1);
write('s=',s);
end;
var a,b: integer;
begin
readln(a,b);
sm(a,b);
end.
Популярно: Информатика
-
ПолумнаПрометей20.08.2022 01:06
-
Cfynks30.03.2021 04:44
-
semenem1503.09.2022 20:50
-
ulyana1454728.12.2020 22:57
-
Reaper65521.11.2022 16:27
-
sasulencijaozq7jr08.03.2021 19:17
-
zakriev76722.05.2020 20:49
-
nadialihas200508.09.2020 23:03
-
chornaya0331.08.2020 05:31
-
патимат5115.06.2022 22:13