Var
i,sum,k:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-10,10);
write(mas[i], ' ');
end;
writeln(' ');
for i:=1 to 10 do begin
if mas[i] mod 3 = 0 then begin
k:=k+1;
sum:=sum+mas[i];
end
end;
writeln('Числа кратные 3 встречаются ',k,' раз. И их сумма = ',sum);
end.

0 0

4 года назад

Какие функции выполняют первая и вторая части имени файла

butikov

Если правильно понял то на элементарном примере.
На столе у нас есть файл. → Данный файл это наш рисунок из программы Paint. → Название файла <<Дом.png>> → Дом - это наше название файла. → png - растровый формат хранения графической информации, использующий сжатие без потерь по алгоритму Deflate.

0 0

4 года назад

Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня.

SwetlanaEduardOlesja

Var
    i: integer;
    d, s: real;

begin
    d := 10;
    s := d;

    for i := 2 to 7 do
    begin
        d := d * 1.1;
        s := s + d;
    end;

    writeln(s);
end.

Блок-схему не умею. Но эта программа хоть работает и правильно

0 0

4 года назад

Кого считают изобретателем WWW и когда это произошло кратко

Fill85 [124]

WWW (World Wide Web - "всемирная паутина") была изобретена работавшим в ЦЕРНе британским ученым Тимом Бернерсом-Ли в 1989 году.

0 0

3 года назад