Отправляет email-рассылки с помощью сервиса Sendsay

Задачи и решения по программированию в среде TurboPascal

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "RFpro.ru: Программирование на языке Pascal" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
19.01.2004
15:10:09
17:40:35
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Зорин Юрий

Статистика

2.200 подписчиков
-3 за неделю
←   Все выпуски   →

Задачи и решения по программированию в среде TurboPascal - Обмена переменных


Информационный Канал Subscribe.Ru

Задачи и решения по программированию в среде Turbo Pascal

Здравствуйте, уважаемые подписчики. Перед Вами 10 номер рассылки. Подписалось 1600+

Ответ к задаче "Среднеарифметическое"

(также ответ к данной задаче прислал Сергей Юшанов и Сафонцев Денис)

Var A,I1,I2,I3,i:integer;

A1,A2,A3,A4,A5,A6:INTEGER;

Begin

For i:=100 to 999 do begin

I1:=(i div 100);

I2:=(i mod 100)div 10;

I3:=(i mod 10);

A1:=I1*100+I2*10+I3;

A2:=I3*100+I1*10+I2;

A3:=I3*100+I2*10+I1;

A4:=I1*100+I3*10+I2;

A5:=I2*100+I1*10+I3;

A6:=I2*100+I3*10+I1;

A:=TRUNC((A1+A2+A3+A4+A5+A6)/6);

IF A=I THEN WRITELN(I);

END;

READLN;

End.

 

"Обмена переменных"

С клавиатуры вводятся два целых числа a, b. Надо обменять их значения местами, не используя никаких других переменных.

 

Вопросы читателей

 

Как через TurboPascal запустить какой-нибудь файл
Спасибо!!!

Ответить: mailto: yza@mail.kz

 

Вот и все! Удачи!

Если есть вопросы по программированию в Turbo Pascal или решенные и нерешенные задачи, то присылайте на mailto:vmftem@mail.ru с темой Questions

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное