Вроде так
var a, b, c, a1, b1, c1: real;
begin
write('Введите a, b, c >>');
readln(a, b, c);
write('Введите a1, b1, c1 >>');
readln(a1, b1, c1);
if (a/a1 = b/b1) and (b/b1 = c/c1) then
writeln('Треугольники подобны') else
writeln('Треугольники не подобны');
<span>end.</span>
Program summa;
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.
Да, можно.
Слово "Да" на этой азбуке переводится так:
_.. ._
Как видно в нем 5 символов,что соответствие условиям задачи!
<span>1. 50 и 30 2. 80 3. Больше Чем 30 4. Больше
</span>
128 символьный алфавит требует минимум 7 бит на символ. 40*50*3*7=42000 бит = 5250 байт