Вывести на экран кол-во символов, введенных с клавиатуры.

Вопрос посетителя

Вывести на экран кол-во символов, введенных с клавиатуры.

Ответ эксперта

Решение:
var a,k,s:integer;
begin
writeln (‘Введите число’);
readln (a);
s:=0;
k:=0;
repeat
begin
s:=s+1;
k:=k+1;
end;
until a=k;
writeln(s);
end.

Скачать ответРаспечатать решение