С какой программы можно провести диагностику компьютера? А)Dr. Web
Б)ScanDisk
В)McAfee
Г)MS Word

253

458

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

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

5676116788

Информатика

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

А) Dr. Web не благодаритиии

minipersik02

Информатика

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

Function islucky(a: integer): boolean; var s: string; begin str(a, s); while length(s) < 6 do s : = '0' + s; islucky : = ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6]) end; var sticket: string; iticket, i, err, sum: longint; begin write('введите ваш номер билета: '); read(sticket); val(sticket, iticket, err); for i : = 1 to iticket do if islucky(i) then inc(sum); writeln('выдано ', sum, ' счастливых билетов'); writeln('осталось выдать ', 55251 - sum, ' счастливых билетов') end.