Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
№1
#include <iostream>
using namespace std;
int main ()
{
<span> int a,b;</span><span>
cin >> a >> b;</span><span>
if (a<b)</span><span> cout << a << endl;
</span><span> else if (a==b)</span><span> cout << "a=b" << endl;
</span><span> else</span><span> cout << b << endl;
</span><span> system ("PAUSE");</span><span>
return 0;
</span>}
№2
#include <iostream>
using namespace std;
int main ()
{
<span> char ch1,ch2;</span><span>
int i1,i2;</span><span>
cin >> ch1 >> ch2;</span><span>
i1=ch1;
</span><span> i2=ch2;</span><span>
if (i1<=i2)</span><span> cout << ch1 << ' ' << ch2 << endl;</span><span>
else</span><span> cout << ch2 << ' ' << ch1 << endl;</span><span>
system ("PAUSE");</span><span>
return 0;
</span>}
№3
#include <iostream>
using namespace std;
int main ()
{
<span> float p,q;
</span><span> cout << "p=";</span><span>
cin >> p;</span><span>
cout << "q=";</span><span>
cin >> q;
</span><span> cout << p-2*q << endl;
</span><span> system ("PAUSE");</span><span>
return 0;
</span><span>}</span>
Точки: 2,1; 2,5; 5,7; 8,5; 2,5; 8,1; 2,1; 8,5
===== PascalABC.NET =====
begin
var a := ArrRandom(50, -99, 99);
a.Println;
var b := ReadArrReal('Ведите 10 чисел:', 10);
b.Println;
end.
Ответ:
1. нет ответа
4. а) сжать изображения
б) удалить встроенные шрифты
5 фотографий
Объяснение:
1. таблицы наверное забыли загрузить...
4. а) с помощью любого графического редактора изменить параметры изображений
б) удалить встроенные шрифты
в) можно еще упаковать документ с помощью архиватора, но самый лучший выход почистить наконец флешку от ненужного хлама. Но это для ответа не годится, т. к. не соблюдаются условия задачи.
5.
1 Гб = 1 * 1024 * 1024 = 1048576 Кб - память фотоаппарата
1048576 Кб / 30720 Кб = 34,133333333333333333333333333333 - всего фотографий
34 - 29 = 5 - осталось