Предмет: Информатика,
автор: grishaebat2016
(Паскаль) Исправить программный, доисторический код
Приложения:
![](https://files.topotvet.com/i/cef/cefba8cbf9de19b1c1285512f1169516.jpg)
lenyashastin:
Здравствуй! Можешь простыми словами объяснить, что нужно сделать? Не очень вдуплил
Ответы
Автор ответа:
1
Ответ:
1. Неверны тип данных(Char-символьный тип). Заменить на integer.
2. В цикле While не ставиться ; после do
Объяснение:
Автор ответа:
1
Ответ:
var a, b, c, x, y:integer;
begin
read (a, b);
x:=a;
y:=b;
while x*y>0 do
if x>=y then x:=x mod y
else y:=y mod x;
c:=x+y;
write (a*b div c);
end.
Пояснение:
1) char меняем на integer, т.к. значения переменных не символьные, а численные.
2) После команды do не ставится точка с запятой ";".
Похожие вопросы
Предмет: Алгебра,
автор: qwerqwerqwerq
Предмет: Математика,
автор: Troliolo
Предмет: Русский язык,
автор: 5481997
Предмет: Математика,
автор: moldabaevag1