Как записать? - Помощь студентам

Alex_Pioner · 23.12.2012, 18:47

Подскажите как это записать на delphi

s = 0
FOR i = 20 TO 100
IF (i MOD 3 = 0) AND ((i MOD 10 = 2) OR (i MOD 10 = 4) OR (i MOD 10 = 8 )) THEN
s = s + i
END IF
NEXT i

Вадим Мошев · 23.12.2012, 20:05

Код:

s := 0;
FOR i := 20 TO 100 do
IF (i MOD 3 = 0) AND ((i MOD 10 = 2) OR (i MOD 10 = 4) OR (i MOD 10 = 8 )) THEN
s := s + i;

Не очень уверен, из-за того, что не знаю, на чём написан оригинал. Это (оригинал) бейсик что ли?

Вадим Мошев · 23.12.2012, 23:34

А где "Спасибо"?

Poma][a · 23.12.2012, 23:49

Цитата:

Это (оригинал) бейсик что ли?

Кажись он самый..

Цитата:

А где "Спасибо"?

Иш Вы, Вадим, размечтались. Рак на горе не свиснул, дождичка в четверг не было, так что не раскатывайте губу

Вадим Мошев · 23.12.2012, 23:52

Ну, если в четверг пойдёт дождичек, то утром в пятницу все поубиваются из-за гололёда, пойдя на работу...

tools · 24.12.2012, 00:22

[offtop]
Весы - не самая бросающаяся в глаза вещь. Новичкам на форуме частенько невдомек, что благодарность на весах висит.
[/offtop]

Вадим Мошев · 24.12.2012, 00:24

Я говорю не про репутацию, тем более, новички не могут влиять не репутацию, я говорю про простые слова благодарности, слово "спасибо".

Alex_Pioner · 25.12.2012, 15:56

Да написанно на бейсике нужно записать это в delphi

23.12.2012, 18:47	#1
Alex_Pioner Регистрация: 29.11.2010 Сообщений: 6	Как записать? Подскажите как это записать на delphi s = 0 FOR i = 20 TO 100 IF (i MOD 3 = 0) AND ((i MOD 10 = 2) OR (i MOD 10 = 4) OR (i MOD 10 = 8 )) THEN s = s + i END IF NEXT i

23.12.2012, 20:05	#2
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Код: `s := 0; FOR i := 20 TO 100 do IF (i MOD 3 = 0) AND ((i MOD 10 = 2) OR (i MOD 10 = 4) OR (i MOD 10 = 8 )) THEN s := s + i;` Не очень уверен, из-за того, что не знаю, на чём написан оригинал. Это (оригинал) бейсик что ли?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
понимаю как сделать, а как записать непойму((	lisica198808	Помощь студентам	9	24.11.2012 20:57
как сравнить 4 числа,наименьшее записать в R15.как вычислить степень?	dezder	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	6	18.12.2011 13:02
Как записать ип	cargo29	PHP	2	20.03.2011 23:30
Как записать?	cargo29	Работа с сетью в Delphi	12	29.12.2010 19:57
как записать?	grafgrial	Общие вопросы Delphi	6	17.04.2010 22:31

23.12.2012, 23:34	#3
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	А где "Спасибо"?

23.12.2012, 23:52	#5
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Ну, если в четверг пойдёт дождичек, то утром в пятницу все поубиваются из-за гололёда, пойдя на работу...

24.12.2012, 00:22	#6
tools Форумчанин Регистрация: 07.10.2008 Сообщений: 213	[offtop] Весы - не самая бросающаяся в глаза вещь. Новичкам на форуме частенько невдомек, что благодарность на весах висит. [/offtop]

24.12.2012, 00:24	#7
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Я говорю не про репутацию, тем более, новички не могут влиять не репутацию, я говорю про простые слова благодарности, слово "спасибо".

25.12.2012, 15:56	#8
Alex_Pioner Регистрация: 29.11.2010 Сообщений: 6	Да написанно на бейсике нужно записать это в delphi