Стан при якому інформаційні дані не можуть бути отримані неавторизованим користувачем або процесом

127

224

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

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

умник1614

Информатика

4,4(53 оценок)

Работает при условии, что а - не отрицательное число: var a: integer; begin write('a = '); read(a); while a > 0 do begin a: =a-3; end; if a=0 then write('а кратно трём') else write('а не кратно трём') end. var a: integer; begin write('a = '); read(a); while a > 3 do begin a: =a-3; end; writeln('остаток от деления а на 3: ',a); end.