4 года назад

Посчитать количество введенных чисел пока не будет введено 0

1 ответ:

Vazgen19934 года назад

0 0

Var
count_num:integer;
number:real;
begin
count_num:=0;
repeat
readln(number);
writeln('Введенное число: ',number);
if (number <> 0) then Inc(count_num);
until (number =0);
writeln('Количество введеных чисел: ', count_num);
end.

Читайте также

Дан рекурсивный алгоритм: procedure F(n: integer); begin writeln('*'); if n>0 then begin writeln('*'); F(n-2); F(n div 2); F(

акулатерминатор

20 звезд.Можно легко проверить,переделав алгоритм.
var s:integer;
procedure F(n: integer);
begin
writeln('*');
if n>0 then begin
writeln('*');
s:=s+1;
F(n-2);
F(n div 2);
F(n div 2);
end;
end;
begin
f(7);
writeln(s);
end.

0 0

4 года назад

Рассчитать количество кадров, если скорость смены кадров равна 30 кадров в секунду, в длительность видеозаписи составляет 2 мину

avicenna 46 [28]

2*30*60=60*60=100*36=3600

0 0

4 года назад

На диске книга занимает 20Мб. Всего в книге 880 страниц.Часть страниц - это цветные иллюстрации в 4-ной палитре и в формате 320*

Suigetsu [14]

Т-и=80
т+и=880
решив эту систему мы получаем т=480,и=400 -страниц с текстом и иллюстр

объм иллюстр:
2*320*640*400/8/1024/1024=125*5/32 (мб)
объм текста:
20-125*5/32=15/32 мб
15/32/480 мб=15* 1024*1024/32/480=1024 симв

0 0

4 года назад

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем максимальный и минимальный элементы и их

Sandra nd1

<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var a := ArrRandom(10, -10, 10);

a.Println;

var i := a.IndexMax;

Writeln('максимальный a[', i + 1, ']=', a[i]);

i := a.IndexMin;

Writeln('минимальный a[', i + 1, ']=', a[i])

end.

<h2>-2 0 -3 0 3 -2 1 -9 -9 -2</h2><h2>максимальный a[5]=3</h2><h2>минимальный a[8]=-9</h2>

0 0

4 года назад

Модем, передающий информацию со скоростью 16 384 бит/сек., передал цветное растровое изображение за 4 мин 16 сек. Укажите максим

jannaj

Всего времени в секундах 4 * 60 +16 = 256 сек
Всего бит передано 256 * 16384 = 4 194 304 бит
количество пикселей в картинке 1024 × 512 = 524 288
сколько бит на на 1 пиксель = 4 194 304 / 524 288 = 8
Количество цветов = 2^8 = 256

0 0

4 года назад