|
Вернуться
| 1 Прокопенко Игорь, 17 ноября 2010 г. 20:49:53 | |
|
2 и 3 строки: нахрен 2 вара
|
|
|
| 2 Калиниченко Максим Дмитриевич, 14 ноября 2010 г. 18:22:38 | |
|
то есть просто буквы поменять?
|
|
|
| 3 Мухометзянов Артём Рамильевич, 14 ноября 2010 г. 18:02:57 | |
Нужно не a := M-N, а M := M-N. Аналогично N := N-M;
Когда M=N a := N.
|
|
|
| 4 Калиниченко Максим Дмитриевич, 14 ноября 2010 г. 17:24:11 | |
|
ÍÎÊ а это НОК
|
|
|
| 5 Калиниченко Максим Дмитриевич, 14 ноября 2010 г. 17:23:44 | |
|
ÍÎÄ это НОД
|
|
|
| 6 Калиниченко Максим Дмитриевич, 14 ноября 2010 г. 17:22:32 | |
program prim3;
var M, N: integer;
var a, b: real;
fi,fo: text;
begin
assign(fi, 'input.txt'); reset(fi);
assign(fo, 'output.txt'); rewrite(fo);
read(fi, M, N);
while M<>N do
begin
if M>N
then a:=M-N
else a:=N-M
end;
writeln (fo, 'ÍÎÄ=',a);
b:=(M*N)/a;
writeln (fo, 'ÍÎÊ=',b);
close(fi);
close(fo);
end.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| |
