1. Перепишите программу на языке Паскаль.

Program primer;
var x,k:integer;
begin
writeln (‘ введите число');
readln(x);
k:=0;
while x<>0 do
x:=x div 10; k:=k+1;
writeln(‘ в числе цифр-’, k);
end.

sadnaadina00    2   28.04.2020 12:02    1