Как решить в паскаль про голосование. к примеру в выборах участвуют иванов и петров. нужно принять ответы(люди садятся один за другим за компьютер и голосуют), подсчитать и вывести кто победил.

164

248

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

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

Ananasabricos

Информатика

4,8(90 оценок)

На pascalabc: var a,i,p,n: integer; begin writeln ('кандидаты: '); writeln ('1. петров'); writeln ('2. иванов'); for n: = 1 to 15 do begin writeln ('введите номер кандидата: '); readln (a); if a=1 then p: =p+1 else i: =i+1; end; if p> i then writeln ('петров победил со счётом ',p,': ',i) else writeln ('иванов победил со счётом ',i,': ',p); end.

DanilGrushin1

Информатика

4,8(23 оценок)

ответ:

1 кбайт

объяснение:

в кодировке unicode 1 символ сообщения занимает 2 байта, первоначально сообщение было записано в кодировке, 1 символ которого занимает 8 бит=1 байт. следовательно объем сообщения при перекодировке увеличился в 2 раза, при этом сообщение увеличилось на 1024 байта.

длина сообщения - х. уравнение:

2х-х=1024 байт

х=1024 байт

1024/1024= 1 кбайт