Помогите с программой на Паскале

кирилл07 · 04.06.2012, 10:38

помогите с программой в ПАСКАЛЕ ..

.из всех целых двухзначных чисел вывести те сумма которых делится на 8 бе остатка.

надо очень сегодня ..

Vladimir_S · 04.06.2012, 11:25

Цитата:

Сообщение от кирилл07

помогите с программой в ПАСКАЛЕ ..

.из всех целых двухзначных чисел вывести те сумма которых делится на 8 бе остатка.

надо очень сегодня ..

Ничего не понял.
Какая сумма? Скольких чисел? Или сумма цифр?
В общем, соблаговолите толком сформулировать. Бе.

shrek=) · 04.06.2012, 11:51

Я думаю, это вот так:

Код:

var
i:integer;
begin
for i:=10 to 99 do begin
if ((i div 10)+(i mod 10)) mod 8 = 0 then
writeln (i);
end;
readln
end.

04.06.2012, 10:38	#1 (permalink)
кирилл07 Новичок Регистрация: 04.06.2012 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с программой на Паскале помогите с программой в ПАСКАЛЕ .. .из всех целых двухзначных чисел вывести те сумма которых делится на 8 бе остатка. надо очень сегодня ..

04.06.2012, 11:51	#3 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Я думаю, это вот так: Код: var i:integer; begin for i:=10 to 99 do begin if ((i div 10)+(i mod 10)) mod 8 = 0 then writeln (i); end; readln end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070