Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 535
var m,k:integer;
begin
read(m);
if (m744) then writeln('не корректные данные') else begin
k:=m div 24;
end;
writeln (k);
end.
- Дата:
- Категория: Информатика » Алгоритмы: 1 уровень
var m,k:integer;
begin
read(m);
if (m744) then writeln('не корректные данные') else begin
k:=m div 24;
end;
writeln (k);
end.
- Опуликовал: Журавель Е.
- |
- Коментариев: 0
- |
- Просмотров: 534
//с начала месяца прошло 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.
- Дата:
- Категория: Информатика » Алгоритмы: 1 уровень
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 533
var m,k:integer;
begin
read(m);
if (m744) then writeln('не корректные данные') else begin
k:=m div 24;
end;
writeln (k);
end.
- Дата:
- Категория: Информатика » Алгоритмы: 1 уровень
- Опуликовал: Томашевич В.
- |
- Коментариев: 0
- |
- Просмотров: 480
Найдём сумму всех чисел от 100 до 10000, которые делятся на 20 и 3.
- Дата:
- Категория: Информатика » Алгоритмы: 1 уровень
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 497
Найдём сумму всех чисел от 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.
- Дата:
- Категория: Информатика » Алгоритмы: 1 уровень
- Опуликовал: Синица Ю.
- |
- Коментариев: 0
- |
- Просмотров: 494
Найдём сумму всех чисел от 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.
- Дата:
- Категория: Информатика » Алгоритмы: 1 уровень
- Опуликовал: Томашевич В.
- |
- Коментариев: 0
- |
- Просмотров: 488
Симулятор разбития стекла в PascalABC(net)
Файл
Файл
- Дата:
- Категория: Информатика » Алгоритмы: 1 уровень
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 611
Пример 1. Даны три числа a,b,c. Находятся суммы всех возможных пар этих чисел: a+b, a+c, b+c. Вывести наименьшую получившуюся сумму.
var a,b,c,S1,S2,S3:integer;
f1:text;
begin
assign(f1,'2.txt');
reset (f1); read(f1,a); read(f1,b); read(f1,c);
S1:=a*a+b*b; S2:=a*a+c*c; S3:=b*b+c*c;
if (s1
end.
Входной файл
Программа
var a,b,c,S1,S2,S3:integer;
f1:text;
begin
assign(f1,'2.txt');
reset (f1); read(f1,a); read(f1,b); read(f1,c);
S1:=a*a+b*b; S2:=a*a+c*c; S3:=b*b+c*c;
if (s1
end.
Входной файл
Программа
- Дата:
- Категория: Информатика » Алгоритмы: 1 уровень
Предыдущая
Следующая
