Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:контрольная работа / вар 09 / задание1
.txt Program zadanie_1;
Var
a,b,c : real;
Begin
Writeln ('‚ўҐ¤ЁвҐ a,b');
Read (a,b);
c := frac(a/b);
Writeln ( 'c= ',c:8:3);
end.
Var
a,b,c : real;
Begin
Writeln ('‚ўҐ¤ЁвҐ a,b');
Read (a,b);
c := frac(a/b);
Writeln ( 'c= ',c:8:3);
end.
Соседние файлы в папке вар 09