<span>Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников.</span>
Program Triangles;
var a1,b1,c1,a2,b2,c2: integer;
begin
writeln('Введите стороны первого треугольника.');
read(a1,b1,c1);
writeln('Введите стороны второго треугольника, соответственно сторонам первого.');
read(a2,b2,c2);
if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('Да, треугольники равны.')
else writeln('Нет, треугольники не равны.');
end.
Для того, чтобы ответить на данный вопрос, необходимо разобрать каждое устройство:
1) а. мышь - устройство для ВВОДА информации.
2) б. клавиатура - устройство для ВВОДА информации.
3) в. джойстик - устройство для ВВОДА информации.
4) г. плоттер - устройство для ВЫВОДА информации.
5) д. сканер - устройство для ВВОДА информации.
6) е. принтер - устройство для ВЫВОДА информации.
7) ж. монитор - устройство для ВЫВОДА информации.
8) з. акустическая система - устройство для ВЫВОДА информации.
Теперь все устройства разделим на две группы:
1) Устройства для ВВОДА информации:
- а. мышь.
- б. клавиатура.
- в. джойстик.
- д. сканер.
2) Устройства для ВЫВОДА информации:
- г. плоттер.
- е. принтер.
- ж. монитор.
- з. акустическая система.
Мы смогли определить устройства для ввода и вывода информации и поэтому теперь можно определить правильный ответ.
Правильным ответом является пункт 1) г, е, ж, з.
Ответ: 1) г, е, ж, з.
//PascalABC.NET 3.2
begin
var x := ReadlnReal('x =');
var s := 3*x + 29 - 10*x;
if s > 25 then write(s)
else write('?');
end.
1Mb=1000Kb
1000:3=333(с остатком)
1Kb=8B
1Kb=8000B
8000:5=1600(без остатка)
0.6Gb=600Mb=600000Kb