- Дата:
- Категория: 10-11 класс, Презентации
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 426
- Дата:
- Категория: Презентации
- Дата:
- Категория: 6-7 класс, Презентации
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 495
Пример 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 if (S2 if (S3 close (f1);
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 уровень
Предыдущая
Следующая