// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
№1
begin var (a,k):=ReadInteger2('Укажите количество рабочих и служащих:'); Writeln('Заработок работника равен ',624750/(a+k)) end.
Пример Укажите количество рабочих и служащих: 15 6 Заработок работника равен 29750
№2
begin var y:=ReadReal('Укажите скорость ходьбы, км/ч:'); var x:=ReadReal('Мальчик пробежал, км: '); Writeln('Затрачено времени на бег, ч: ',x/(3*y):0:2) end.
Пример Укажите скорость ходьбы, км/ч: 5.2 Мальчик пробежал, км: 12 Затрачено времени на бег, ч: 0.77
1) 23+16=39 символов было в сообщении первоначально
2) 23 × 1 байт = 23 байт общий объем первого сообщения без русского алфавита
3) 16 × 2 байта = 32 байт информационный объем сообщения русского алфавита до перекодировки
4) 23+32=55 байт - информационный объем сообщения до перекодировки
5) 39 × 2 байт = 78 байт информационный обем сообщения после перекодировки ( в Unicode 1 символ - 2 байта)
6) 4 Кбит ×1024/8 = 512 байт объем добавленного сообщения
7) 78+512 = 590 байт стал информационный объем сообщения после добавления еще одного сообщения
8) 590 - 55 = 535 байт увеличился итоговый информационный объем
ответ: 535 байт
// Внимание! Если программа не работает, обновите версию!
№1
begin
var (a,k):=ReadInteger2('Укажите количество рабочих и служащих:');
Writeln('Заработок работника равен ',624750/(a+k))
end.
Пример
Укажите количество рабочих и служащих: 15 6
Заработок работника равен 29750
№2
begin
var y:=ReadReal('Укажите скорость ходьбы, км/ч:');
var x:=ReadReal('Мальчик пробежал, км: ');
Writeln('Затрачено времени на бег, ч: ',x/(3*y):0:2)
end.
Пример
Укажите скорость ходьбы, км/ч: 5.2
Мальчик пробежал, км: 12
Затрачено времени на бег, ч: 0.77