1)
program task1;
var x,y,xq,yq,sum,pro,cha,raz:integer;
begin
write('Введите числа:');
readln(x,y);
xq:=sqr(x);
yq:=sqr(y);
sum:=xq+yq;
raz:=xq-yq;
pro:=xq*yq;
cha:=xq/yq;
write('Сумма=',sum,';Разность=',raz,';Частное=',cha,';Произведение=',pro);
end.
2)
program task2;
var a,r,rr,h,s:real;
begin
write('Введите длину стороны треугольника: ');
readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r::2);
Writeln('Радиус описанной окружности ', rr::2);
Writeln('Высота треугольника ', h::2);
Writeln('Площадь треугольника ', s::2);
end.
Синим-отбор информации
Зелёным-кодирование
При использовании палитры из 4 цветов для хранения одного пикселя требуется log(2)4 = 2 бита. Память для хранения изображения: 66*66*2 бит = 8712 бит
Держи алгоритм, программу, как я понял уже дали
При вводе символа и интерпретируя его в тип int оно не может произвести никаких действий, поэтому программа продолжает работать со значением по-умолчанию.
<h2>А вот официальное примечание:</h2>
If extraction fails (e.g. if a letter was entered where a digit is expected), value is left unmodified and failbit is set.
Если ввод не удается (например, если была введена буква, хотя ожидается число), значение остается неизменным и устанавливается ноль.