Ошибка "несколько подпрограмм могут быть вызваны". pascal abc. net. begin var d: =readlnstring('вас программа, которая может делить '+ 'два числа с остатком. напишите, , свое имя'); writeln(', ',d,'! '); repeat writeln('как нужно написать ответ? ',#13#10, '1 вариант. 5: 3 = 1(ост.2)',#13#10,'2 вариант. 5 = 3*1 + 2',#13#10, '0 - завершить работу'); var c: char; repeat c: =readlnchar('введите 0, 1 или 2: '); case c of '0': exit; '1','2': break; end; until false; var a, b: biginteger; if not biginteger. tryparse(readlnstring('введите целочисленное делимое: '),a) then begin writeln('вы ввели неверное значение. работа завершена'); exit end; if not biginteger. tryparse(readlnstring('введите целочисленный делитель: '),b) then begin writeln('вы ввели неверное значение. работа завершена'); exit end; {if b=0 then begin writeln('вы ввели неверное значение.'); exit end; } if c='1' then writelnformat('{0}: {1}={2}(ост.{3})',a, b,a div b, a mod b) else writelnformat('{0}={1}*{2}+{3}',a, b,a div b, a mod b); var f: char; repeat f: =readlnchar('если вы хотите завершить работу, введите "0", если продолжить - любую букву.'); case f of '0': exit; else break; end; until false; until false end.

tynyshbayi2004p0e1kh   ·   17.07.2019 06:10
Ответов: 1 Показать ответы 0 Обсудить

Другие вопросы по Информатике

Скратким ответом. записать адрес файла program.exe, хранящегося на компьюторе,зарегистрированном в домене верхнего уровня ru,домене второго уровня schools и имеющем собственное имя...
Информатика
03.03.2019 18:50
3 ответ(ов)
Сколько знаков должен был знать китаец, умеющий читать и писать?...
Информатика
04.03.2019 11:00
4 ответ(ов)
Найти среднее арифметическое всех средних чисел от а до в решение в паскале...
Информатика
10.03.2019 10:50
3 ответ(ов)
1) определяет первое требование для создания программы; 2) определяет второе требование для создания программы; 1 3) определяет третье требование для создания программы;...
Информатика
03.03.2019 19:46
1 ответ(ов)
Как сделать чтобы word показывал в каком квартале самая min и max прибыль?...
Информатика
03.03.2019 19:41
1 ответ(ов)
Фальшивомонетчики.лиса делает монеты легче а кот тяжелее.у буратино 3 монеты и одна из них фальшивая.как за 2 взвешивания узнать какая фальшивая.условия: если 1 больше 2 и 1 больше...
Информатика
03.03.2019 20:32
1 ответ(ов)
Перед закрытием рабочей книги необходимо: а) сохранить рабочим листы б) закрыть отдельные листы в) ничего из вышеперечисленного...
Информатика
07.03.2019 08:17
1 ответ(ов)
Определите способ записи представленного алгоритма "пополнение счета"​...
Информатика
07.03.2019 14:14
1 ответ(ов)
Сор 2 по информатике пятый класс 3 четверть вроде тема алгоритмы вроде​...
Информатика
10.03.2019 18:51
2 ответ(ов)
Скиньте у кого есть примерные вопросы по информатике соч за 3 четверть 6 класс....
Информатика
11.03.2019 07:39
3 ответ(ов)
Что воспринимает муравей: звук, запах, свет, вкус?...
Информатика
11.03.2019 15:40
2 ответ(ов)
Запишите на алгоритмическом языке алгоритм, представленый следующей блок-схемой: /tex]​...
Информатика
11.03.2019 19:42
3 ответ(ов)
Самые популярные сегодня