var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
while (sum < 324) do //пока сумма меньше 324
begin
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
end;
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец
Сообщение содержит 36 символов, т.е. скорость передачи 36/0.00001 = 3.600.000 символов в секунду, после чего можно говорить, что некорректно задан вопрос,т.к. не указана кодировка символов. Если она указана, то 3.600.000 умножаешь на количество бит, которыми кодируется символ
Var
a,b:real;
begin
writeln('Сколько стоит электричество?');
read(a);
writeln('Сколько показывает <span>счетчик</span>?');
read (b);
writeln('Вам нужно заплатить ', a*b);
end.
1-3
2-2
3-1
жду лучший ответ)