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

[-HunteR-]

spankyham, слушай. Иди и учи, тебе тут не рашалка чужих задач! Тебе расписоли все, copy/paste и все, че тебе ещё надо?

при вводе cnt у меня вообще ошибка вылазит...

а ты не пробывал cnt в переменные внести?
var
cnt:integer;

[Sazary]

Сообщение от spankyham

при вводе cnt у меня вообще ошибка

У любой ошибки есть номер и описание. Как минимум могли бы привести текст.
Хотя практически не сомневаюсь, что вы пытаетесь скомпилировать приведенный кусок даже не объявив переменные.

Я попросил расписать поподробнее.

Подробнее только полный текст. Осталось только написать объявления переменных.

[spankyham]

спс...только выводится ещё число 4, хотя при делении на 6 оно не даёт в остатке 4.....хм.....и как вывести на экран количество???

[IT-man]

4 /6 = 0 +остаток 4

writeln(cnt);

[spankyham]

спс) чето я затупил реально.....благодарю всех за помощь! Sazary сорри, што погорячился наверно, просто реально запарки с этим паскалем.....а эти задачи девушке моей...вот собственно....

[spankyham]

 
uses crt;
const n=1;
         k=12;
var i:integer;
     v,sum,r:real;
begin
        clrscr;
        sum:=0;
        r:=10;
        for i:=n to k do begin
        v:=4/3*Pi*r*r*r;
        sum:=sum+v;
        r:=10+0.5;
        end;
        writeln('symmarnbly o6bem:',v:6:2);
        readln;
end.

посмотрите, правильно ведь так????? (2ая задача)

[IT-man]

нет вместо

r:=10+0.5;

надо

 r:=r+0,5;

[spankyham]

спс) надо терь на калькуляторе фсё пересчитать ХДДДД

[Sazary]

Исходные данные в сантиметрах и миллиметрах, а ответ нужен в литрах.

uses crt;
const n=1;
         k=12;
var i:integer;
     v,sum,r:real;
begin
        clrscr;
        sum:=0;
        r:=0.05; { тут тоже была ошибка. Мы ведь берем радиус, а он равен 0.05 }
        for i:=n to k do
         begin
         v:=4/3*Pi*r*r*r;
         sum:=sum+v;
         r:=r+0.005;
         end;
        writeln('symmarnbly o6bem:',v:6:6);
        readln;
end.

Ответ получился - 0.004849 литров

[spankyham]

ну так-то да.....но я ща чисто математически решил эту задачку и ответ сошёлся....ток сантиметры в кубе надо в метры перевести....то бишь на тысячу поделить, если я не ошибаюсь.....
не, представь шар, диаметром 21см и его объём 0.004849 литров ????))