Сегодня последний день.
1: Скорость некоторого соединения равна 350 кбайт/с. Сколько времени
потребуется для передачи 654 страниц текста, если для кодирования
символов используется кодовая таблица UNICODE, и каждая страница в
среднем содержит 109 символов?
2: Определить, какое кол-во информации будет занимать текст,
расположенный на странице 172 вашего учебника по информатике,
если для кодирования будет использоваться 8-ми разрядная
кодировка. ответ перевести в кбайты.

1

//Вводим a,b,c

Console.WriteLine(hello);

if(a == b || a==c || b==c){

Console.WriteLine("Треугольник равнобедренный");

}else{

Console.WriteLine("Треугольник НЕ равнобедренный");

}

2

int x1,x2,x3,x4;

int x;

//Вводим число x

   x1 = (x - (x % 1000)) / 1000;

   x2 = ((x - (x % 100)) - (x - (x % 1000))) / 100;

   x3 = ((x - (x % 10)) - (x - (x % 100))) / 10;

   x4 = x % 10;

if((x1 == 6) || (x1 == 9) || (x2 == 6) || (x2 == 9) || (x3 == 6) || (x3 == 9) || (x4 == 6) || (x4 == 9)){

Console.WriteLine("Входит");

}else{

Console.WriteLine("не входит");

}

3

float x,y,z;

// Вводим x,y,z

if(x >= 0,5 && x<=5,1) Console.WriteLine(x, " Входит");

if(y >= 0,5 && y<=5,1) Console.WriteLine(y, " Входит");

if(z >= 0,5 && z<=5,1) Console.WriteLine(z, " Входит");

4 задания к сожалению не понял

const s='Каждый охотник желает знать где сидит фазан';

var s1,sub:string;

i,j,m,n:integer;

a:array[1..100] of string;

begin

i:=0;n:=0;

repeat

inc(i);

if (s[i]=' ')or(s[i]=',') then begin

inc(n);

a[n]:=sub;

sub:='';

end

else sub:=sub+s[i];

until i=length(s);

inc(n);

a[n]:=sub;

writeln;

for i:=1 to n do

begin

if i mod 4 =1 then writeln(a[i]);

if i mod 4 =2 then writeln(' ',a[i]);

if i mod 4 =3 then writeln(' ',a[i]);

if i mod 4 =0 then begin

writeln(' ',a[i]);

writeln;

end;

end;

end.

Объяснение:

Возможности протестировать нет, но надеюсь работает. Питон не знаю, но возможно