(Паскаль) Исправить программный, доисторический код
Приложения:
![](https://st.uroker.com/files/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 не ставится точка с запятой ";".
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад