Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses crt;
var c,k: integer;
num: real;
s: string;
begin
write('введите число - ');
readln(s);
k:=pos(',',s);
if k>0 then s[k]:='.';
val(s,num,c);
writeln(num);
end.
var c,k: integer;
num: real;
s: string;
begin
write('введите число - ');
readln(s);
k:=pos(',',s);
if k>0 then s[k]:='.';
val(s,num,c);
writeln(num);
end.
Соседние файлы в папке 8 лаб. Модульное программирование