Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Дата: 12-12-2019, 13:37
- Категория: Электронные ресурсы / Рисуем в ABCPascal / Алгоритмы: 1 уровень
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 18
В районе расположены 3 населенных пункта. Даны их координаты. по территории района проходит прямолинейный участок железной дороги. Решено построить железнодорожную станцию и проложить прямолинейные автомобильные дороги от станции к населенным пунктам. Найдите положение станции, при котором общая длина автомобильных дорог была бы минимальной. Координаты населенных пунктов: А(1;4), В(2;-3), С(7;3).Найдите решение задачи о выборе положения железнодорожной станции, если известны затраты на строительство 1 км автомобильной дороги до каждого населенного пункта: ZA=530, ZB=180, ZC=940.
- Дата: 28-04-2026, 12:20
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Грико И.
- |
- Коментариев: 0
- |
- Просмотров: 941
Дан массив из 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.
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.
- Дата: 5-02-2020, 08:53
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 960
Пример 1. Дан массив из N элементов. В группе из N человек известен рост каждого. Написать программу, определяющую, сколько человек из этой группы имеют рост выше, чем средний рост группы.
Пример 2. Дана последовательность из N целых чисел. Вывести элементы последовательности в обратном порядке.
Пример 3. Даны натуральные числа . Заполнить элементов массива числами:А,А+В,А+2*В, А+3*В+... Вывести получившийся массив на экран.
Пример 2. Дана последовательность из N целых чисел. Вывести элементы последовательности в обратном порядке.
Пример 3. Даны натуральные числа . Заполнить элементов массива числами:А,А+В,А+2*В, А+3*В+... Вывести получившийся массив на экран.
- Дата: 29-01-2020, 08:57
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 950
Пример. Найти сумму чисел от 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.
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.
- Дата: 22-01-2020, 08:52
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 813
- Дата: 18-12-2019, 08:39
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 953
- Дата: 18-12-2019, 08:39
- Категория: Алгоритмы: 1 уровень / Портфолио
- Опуликовал: Журавель Е.
- |
- Коментариев: 0
- |
- Просмотров: 805
//с начала года прошло k часов. Определить, какая сейчас неделя
var n,k:integer;
begin
read(n,k);
if (k 8784) then writeln('не корректные данные') else begin
k:= k div 168;
writeln(k);
end;
end.
var n,k:integer;
begin
read(n,k);
if (k 8784) then writeln('не корректные данные') else begin
k:= k div 168;
writeln(k);
end;
end.
- Дата: 11-12-2019, 08:50
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 821
- Дата: 11-12-2019, 08:50
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 820
- Дата: 11-12-2019, 08:50
- Категория: Информатика / Алгоритмы: 1 уровень
Предыдущая
Следующая
