1) напечатайте таблицу кубов чисел: -10, -8, -6, 10. 2)определите результат выполнения программы (без компьютера) begin s: =0; x: =10; repeat s: =s+x; x: =x+10; untill x> 12; writein('s=',s); writein('x=',s); end.
224
226
Ответы на вопрос:
1) uses crt; var a: integer; begin for a: =-10 to 10 do writeln('a=',a,' ',a*a*a: 6); end.2) 10 10
Популярно: Информатика
-
slavikelite07405.09.2021 11:01
-
аня291320.03.2021 07:58
-
Milana00000011108.01.2023 16:14
-
djein200706.07.2021 06:26
-
varabunia1208.03.2021 07:59
-
хрустально06.08.2020 19:46
-
8AnnaMur805.07.2021 23:57
-
kalvifa19.05.2021 09:51
-
Рюка30.01.2021 05:42
-
bubink9329.07.2020 18:31