Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>

0 0

2 года назад

дано целое число N больше 1, а также первый член а и разность D арифметической прогрессии сформировать и вывести массив размером

Елена Глушенко [14]

program xxx;

0 0

4 года назад

Помогите решить задачи в паскале. 1)Заданы радиус R круга и сторона квадрата А. Определить какая фигура имеет большую площадь.

rubinandrey

1)
var
Sk, Ss, R, A : integer;

begin
read(R, A);
Sk := pi*R*R;
Ss := A*A;
If Sk > Ss then write ('Площадь круга больше')
else
If Ss > Sk then write ('Площадь квадрата больше')
else write <span>('Площади равны')
</span>end.

2) не знаю

0 0

3 года назад

определите значение переменной с после выполнения фрагмента алгоритма, записанного в виде блок-схемы:( вложение)В ответ укажите

gerandios [34]

Алгоритм содержит цикл с предусловием. Цикл выполняется до тех пор, пока b≠5. Начальное значение b=10, а в теле цикла b уменьшается каждый раз на 1, т.е. цикл будет выполнен для b=10,9,8,7,6 - пять раз.
В цикле переменная с накапливает сумму значений b, следовательно по окончании цикла с = 10+9+8+7+6 = 40

Ответ: 40

0 0

3 года назад