//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.
Размер = 48 Кбайт
Время передачи = 20 сек
Скорость передачи = 48/20 = 2.4 Кбайт/сек
Размер файла, передаваемого за 2 минуты при той же скорости = 2.4*120 = 288 Кбайт
Var s : String;
Begin
Readln(s);
If s[1]='<span>а' then Writeln(s);
end.
</span>
437-1=436
436 переводим в четверичную систему счисления получаем 12310
А=0 И=1 О=2 У=3
следовательно получаем ИОУИА
Var a:array[1..4,1..6] of integer;
i,j,p,n:integer;
begin
p:=1;
n:=1;
for i:=1 to 4 do
for j:=1 to 6 do
read(a[i,j]);
for j:=1 to 6 do
p*=a[3,j];
writeln(p);
<span>end.</span>