Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 669
- Дата: 18-12-2019, 08:39
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 663
- Дата: 11-12-2019, 08:50
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 685
var m,k:integer;
begin
read(m);
if (m744) then writeln('не корректные данные') else begin
k:=m div 24;
end;
writeln (k);
end.
- Дата: 11-12-2019, 08:39
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 613
Найдём сумму всех чисел от 1 до 10000, которые делятся на 25 и 17.
var i,s:integer;
begin
for i:=1 to 10000 do if (i mod 25=0) and (i mod 17=0)then begin s:=s+i;write (i,' '); end;
writeln('s=',s);
end.
var i,s:integer;
begin
for i:=1 to 10000 do if (i mod 25=0) and (i mod 17=0)then begin s:=s+i;write (i,' '); end;
writeln('s=',s);
end.
- Дата: 10-12-2019, 14:59
- Категория: Информатика / Алгоритмы: 1 уровень
