Все категории

1 год назад

Сколько нулей в милиарде?

Знания

Информатика

1 ответ:

BeloveDmitry1 год назад

0 0

В миллиарде 9 нулей. 1 000 000 000

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

Найти средне арифметическое элементов последовательности, превосходящих некоторое число С. Массив задан датчиком случайных чисел

Анна Иванова82 [782]

var

a:array [1..20] of integer;

i,c,k:integer;

sr:real;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(80)-44;

write (a[i],' ');

end;

writeln;

write ('C = ');readln(c);

for i:=1 to 20 do

if a[i]>c then begin

sr:=sr+a[i];

k:=k+1;

end;

sr:=sr/k;

writeln (sr:0:2);

readln;

end.

0 0

4 года назад

Напишите программу, которая вычисляет сумму элементов, удовлетворяющих условию: 5<элемент массива<19. Срочно!

Natalija1989

3) var a:array [1..1000] of longint; n,k,i:integer;
begin 
readln(n); k:=0;
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if (a[i]>5) and (a[i]<19) then k:=k+a[i];
writeln(k);
readln; end.

0 0

4 года назад

Как можно поменять расширение файла для уменьшения его размера?

kiryabyte

Чтобы уменьшить размер файла, можно его заархивировать

0 0

4 года назад

Дан массив целых чисел. Сдвинуть его циклически на один элемент влево. _____ Помогите составить Паскаль шпион гамму, пожалуйста

Femidagod

Var num : integer;

....

num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;

0 0

4 года назад

Введите числа a, b, N. Если оба числа больше N, то напечатайте слово «БОЛЬШЕ», если меньше N, то напечатайте «МЕНЬШЕ», иначе нап

jimmspeak

Программа числа и промежуток (в Кумире) Ввод чисел через пробел

0 0

4 года назад