Надо код на языке Паскаль I. Имеется ряд цилиндрических резервуаров, высота которых одинакова и равна Н, а внутренние радиусы оснований образуют
последовательность: R, R/21/2,R/31/2. Найти наименьшее количество
резервуаров, в которых поместилась бы жидкость объема А.
2. В числовую переменную в произвольном порядке вводятся нулевые и
положительные целые числа , количество чисел заранее неизвестно.
Определить сумму и количество положительных чисел и максимальное
количество подряд идущих нулей (признак конца отрицательное число).

Объяснение:

Саск Нарт учи уроки

зависит от скорости чтения ученика 

пусть будет 160 с/м

время прочтения 30 мин

1. 160*30 = 4 800 1 символ = 1 байт, следовательно ученик получит 4 800 байт информации или 4,6875 кб 2. объем дискеты 3.5" = 1457664 байт, 1/2 дискеты = 728832 байт из п.1 определим скорость: 160 байт в минуту (т.к. 160 символов в минуту по условию). т.о. имеем: при скорость 160 байт в минуту объём данных в 728832 байт будет считан за: 728832/160 = 4555,2 минуты или 75 часов 55 минут и 12 секунд. 

program sfetafor1; uses graphabc; beginsetwindowsize(640,480); clearwindow(clwhite); setpencolor(clblack); setpenwidth(3); rectangle(200,200,300,400); floodfill(250,300,clltgray); circle(250,230,25); circle(250,290,25); circle(250,350,25); floodfill(250,235,clred); floodfill(250,285,clyellow); floodfill(250,355,clgreen); line(250,200,250,150); line(250,150,100,150); setfontsize(14); setfontcolor(clred); textout(100,125,'красный свет-дороги нет'); end.