НАЧАЛО
ПОКА нашлось (222) ИЛИ нашлось (888)
ЕСЛИ нашлось (222)
ТО заменить (222, 8)
ИНАЧЕ заменить (888, 2)
КОНЕЦ ЕСЛИ
КОНЕЦ ПОКА
КОНЕЦ
Какая строка получится в результате применения приведённой ниже программы к строке,
состоящей из 72 идущих подряд цифр 8? В ответе запишите полученную строку.
148
359
Ответы на вопрос:
1) var a, b, l: real; begin write('введите a, b> > '); read(a, b); l: =(a+b)/2; writeln(l); end.2)var a, b: integer; beginwrite('введите 2 числа> > '); read(a, b); if a< b then writeln(a) else writeln(b); end.3)var a1, d, n, sr: real; beginwrite('введите a1, d> > '); read(a1, d); n: =15; sr: =a1+d*(n-1); writeln(sr); end.4)vara, d, p: real; i: byte; beginwrite('введите первую сторону> > '); read(a); for i: =1 to 8 dobeginp: =p+a; a: =a+2; end; writeln('p = ', p); end.
Популярно: Информатика
-
kagdhs20.04.2023 20:05
-
tranatar04.02.2021 03:00
-
annaaristova04.07.2020 13:16
-
gelik757525.09.2020 03:58
-
nika155724.06.2020 09:07
-
ромкапомка115.08.2020 21:41
-
valeracat18628.01.2020 11:15
-
катя506814.07.2020 09:01
-
David111111157707.04.2020 15:38
-
Lilia300212.10.2020 01:40