Регистрация
shpep
16.12.2020 00:42
Информатика
Есть ответ 👍

Program wwabcfftahfmsejfejfmekfmsjfjefmjsfklejfjnsejfnsjlfmsejfnjlesnfjsemfjsefjsefjsfjmjlm;
Var a, b, i, k:integer;
s:real;
Begin
s:=0;k:=0;
write('Задайте a,b=');
readln(a,b);
For i:=a To b Do
Begin
Inc(s,i);{s:=s+l};
Inc(k);{k:=k+1;};
end;
s:=s/k;
Writeln('s=',s:3:2);
end.
что делать если пишет Нет перегруженной подпрограммы с такими типами параметров

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

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

KarinaKOSMOS
KarinaKOSMOS
4,4(52 оценок)
Более честный способ: uses crt; var s,ans: integer; begin read(s); while s> 0 do begin inc(ans); s: =s div 10; end; writeln(ans); end. более короткий: uses crt; var s: string; begin read(s); writeln(length(s)); end.

Популярно: Информатика