15. Даны полные имена файлов, хранящихся на диске D:. D:\COUNTRY USA\INFO culture.txt
D:\COUNTRY USA Washington.txt
D:\COUNTRY RUSSIA Moscow.txt
D:\COUNTRY RUSSIA INFO Moscow.txt
D:\COUNTRY RUSSIA\culture.txt
изобразите соответствующую файловую структуру
196
314
Ответы на вопрос:
//сделал лугачев кирилл //специально для //все данные вводятся с клавиатуры program sravnenie; var a, b: integer; // стороны 1-ого прямоугольника d, c: integer; // стороны 2-ого прямоугольника s1, s2: integer; // площадь buf: integer; // если площадь 1-ого будет меньше 2-ого //поменяем местами,что бы избавиться от минуса razn: integer; // разница 2-ух площадей begin write('введите стороны 1-ого прямоугольника: '); readln(a, b); write('введите стороны 2-ого прямоугольника: '); readln(d, c); s1 : = a * b; //площадь 1-ого s2 : = d * c; //площадь 2-ого if s1 < s2 then begin buf : = s1; s1 : = s2; s2 : = buf; end; razn : = s1 - s2; writeln('площадь 1-ого больше площади 2-ого в - ',razn, ' раз'); end.
Популярно: Информатика
-
JHOOOOOOPE10.02.2022 17:49
-
mawa1820.03.2021 21:55
-
pupsic308.11.2020 10:35
-
robiya8606.12.2022 11:05
-
kingoflfmvd29.01.2020 22:04
-
vovadj1723.06.2021 08:33
-
Dashyliavvv26.06.2020 08:11
-
alexasnowbell23.02.2021 05:08
-
panaitov02320.04.2021 18:10
-
14672730.09.2022 16:41