Задачи на циклы в Паскале

[spankyham]

1)Вывести на экран натуральные числа от 1 до 100, которые при делении на 6 дают в остатке 4, и их количество.
2)Определить суммарный объём в литрах 12 вложенных друг в друга шаров со стенками 5 мм. Внутренний диаметр внутреннего шара равен 10 см. Считать, что шары вкладываются друг в друга без зазоров.

[Sazary]

Что не выходит? Где ваши наработки?

1) Идете в цикле от 1 до 100.
Для нахождения остатка от деления используйте оператор mod.

cnt := 0;
for i:=1 to 100
 if i mod 6 = 4 then
  begin 
  writeln(i);
  inc(cnt);
  end;

2) Диаметр внутреннего шара - 10 см. Диаметр каждого следующего = диаметр предыдущего + 10 мм.

[spankyham]

я вообще не рублю почти в паскале....цел день просидел за этими задачами............ можно на языке паскаля??

[Sazary]

я вообще не рублю почти в паскале..

Тогда садитесь, и начинайте учить!

цел день просидел за этими задачами

И где результаты? Выкладывайте, не стесняйтесь.. Или вы только в мыслях над ними целый день просидели?

Первую задачу я привел почти полностью. Осталось только объявления и шапку написать.

[spankyham]

брррр.....че такое cnt??? Sazary, если тебе не сложно, напиши нормально решение, я реально уже ничо сообразить не могу................

[Sazary]

spankyham, а вы перечитайте задание, посмотрите, что у вас дано и что требуется найти, а потом сопоставьте это с приведенным фрагментом. А если вы напишете все с нуля, будет еще лучше.
Задача элементарная. И если бы вы действительно просидели над ней целый день (как вы говорите), то давно бы ее уже написали.
Все, что требуется для решения можно выучить за час-два.

[-HunteR-]

cnt = count(количество) он прибавляет еденицу к нему, если число в остатке дает 4.
Зачем пошел на эту специальность тогда? У меня пол-группы отчислили за то, что не знают простых вещей

[spankyham]

спс................................ .....

[Veselyn]

sum:=0;
r:=10;
for 1:=to 12 do begin
v:=4/3*3.14*r^3;
sum:=sum+v;  
r:=10+0.5;        end;

[spankyham]

уважаемые специалисты, просьба распишите поподробнее....