Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: Лавринович Д.
- |
- Коментариев: 0
- |
- Просмотров: 602
- Дата: 12-12-2019, 11:37
- Категория: Информатика / Диаграммы
- Опуликовал: Журавель Е.
- |
- Коментариев: 0
- |
- Просмотров: 677
//с начала года прошло 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
- |
- Просмотров: 666
- Дата: 11-12-2019, 08:50
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 661
- Дата: 11-12-2019, 08:50
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Журавель Е.
- |
- Коментариев: 0
- |
- Просмотров: 653
//с начала месяца прошло m часов. Определить, какое сейчас число
var m,k:integer;
begin
read(m);
if (m 744) then writeln('не корректные данные') else begin
k:= m div 24;
writeln(k); end;
end.
var m,k:integer;
begin
read(m);
if (m 744) then writeln('не корректные данные') else begin
k:= m div 24;
writeln(k); end;
end.
- Дата: 11-12-2019, 08:39
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 683
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
- |
- Просмотров: 664
//с начала месяца прошло m часов. Определить, какое сейчас число
var m,k:integer;
begin
read(m);
if (m 744) then writeln('не корректные данные') else begin
k:= m div 24;
writeln(k); end;
end.
var m,k:integer;
begin
read(m);
if (m 744) then writeln('не корректные данные') else begin
k:= m div 24;
writeln(k); end;
end.
- Дата: 11-12-2019, 08:38
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 664
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:37
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Томашевич В.
- |
- Коментариев: 0
- |
- Просмотров: 598
Найдём сумму всех чисел от 100 до 10000, которые делятся на 20 и 3.
- Дата: 10-12-2019, 15:02
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 617
Найдём сумму всех чисел от 100 до 10000, которые делятся на 15 и 29
.
var a,S:integer;
begin
for a:=100 to 10000 do if (a mod 15=0)and(a mod 29=0) then begin s:=s+a;write(a,' '); end;
writeln('S=',s);
end.
var a,S:integer;
begin
for a:=100 to 10000 do if (a mod 15=0)and(a mod 29=0) then begin s:=s+a;write(a,' '); end;
writeln('S=',s);
end.
- Дата: 10-12-2019, 14:59
- Категория: Информатика / Алгоритмы: 1 уровень
