Регистрация
almaziksky311
31.01.2023 23:22
Информатика
Есть ответ 👍

Пусть программ имеет блочную структуру. процедура p является блоком. параметр передается по значению. что будет напечатано? перем m, n, k: integer; процедура p(m: integer); перем n: integer; начало m: =m+1; n: =k+10; k: =m+n; writeln(‘*‘, m,‘ ‘, n, ‘ ‘, k) конец; {p} начало m: =9; n: =17; k: =213; p(k); writeln(‘#‘, m,‘ ‘, n, ‘ ‘, k) конец.

122
373
Посмотреть ответы 1

Ответы на вопрос:

larryzw17
larryzw17
4,7(8 оценок)
Var n,sum: integer; begin readln(n); while n > 0 do   begin       if n mod 10 > 5 then           sum: = sum + n mod 10;       n: = n div 10;   end; writeln(sum); end. пример: 135483 8

Популярно: Информатика