Rss
Виртуальный кабинет МАТЕМАТИКУС
Популярное
Календарь
«    Сентябрь 2020    »
ПнВтСрЧтПтСбВс
 123456
78910111213
14151617181920
21222324252627
282930 
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

Опросы
Оцените работу сайта
Лучший
Неплохой
Устраивает ... но ...
Встречал и получше
Совсем не понравился

Интернет с пользой
Интернет с пользой

Book_ABC

  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 167
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 186
КактусыProgram1.pas [1,82 Kb] (cкачиваний: 0)
Составила Жук Анастасия.

Небо

  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 97
НебоProgram1.pas [3,85 Kb] (cкачиваний: 0)
Составила Синица Юлия.
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 167
Кораблики
Program1.pas [1,22 Kb] (cкачиваний: 0)
Составил Томашевич Вадим.
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 121
Используем команду OnVector
  • Опуликовал: Грико И.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 142
Дан массив из N элементов.Написать программу, подсчитывающую произведение элементов массива.
var
a:array [1..100] of integer;
i, n, pr:integer;
begin
read(n);
for i:= 1 to n do read(a[i]);
read(a[i]);
pr:=1;
for i:= 1 to n do write(a[i],' '); writeln;
for i:= 1 to n do pr:=pr * a[i];
writeln(pr);
end.
Program8.pas [223 b] (cкачиваний: 0)
Пример 1. Дан массив из N элементов. В группе из N человек известен рост каждого. Написать программу, определяющую, сколько человек из этой группы имеют рост выше, чем средний рост группы.
primer1.pas [323 b] (cкачиваний: 0)
Пример 2. Дана последовательность из N целых чисел. Вывести элементы последовательности в обратном порядке.
primer2.pas [157 b] (cкачиваний: 0)
Пример 3. Даны натуральные числа . Заполнить элементов массива числами:А,А+В,А+2*В, А+3*В+... Вывести получившийся массив на экран.
primer3.pas [181 b] (cкачиваний: 0)
Пример. Найти сумму чисел от 1 до 100, которые делятся на 3 и на 5.
var s, i:integer;
begin
for i:=1 to 100 do begin if (i mod 3=0) and (i mod 5=0) then begin write (' ',i); s:=s+i;end;end;
writeln;
writeln('s=',s);
end.
Program6.pas [159 b] (cкачиваний: 0)
  • Опуликовал: Синица Ю.
  • |
  • Коментариев: 0
  • |
  • Просмотров: 154
Program7.pas [385 b] (cкачиваний: 0)
Program7.pas [390 b] (cкачиваний: 0)

Облако Тегов

{links}