Тема: program paradox
Показать сообщение отдельно
  (#1 (permalink)) Старый
vladh63 vladh63 вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.01.2012
По умолчанию program paradox - 23.01.2012, 20:13

program paradox;
uses crt;
var x,y:longint; i:integer;
begin
clrscr;
for i:=1 to 9 do
begin
x:=x*10+i; y:=x*8+i;
writeln('':9-i,x,'x8+',i,'=',y);
end;
readkey;
end.

Что можете сказать о выданом в Pascalе решении ?
Ответить с цитированием
Ads