Кабель с витыми проводами :
2^-10 гбит/с
800*1024=819200 с =227,6 ч
коаксиальные :
1 гбит/с
800 с
оптические :
2^10 гбит/с
800/1024=0.78 с
радиолинии :
10 гбит/с
800/10=80 с
var
a, b: string;
c: integer;
begin
writeln('Введите первое слово: ');
readln(a);
writeln('Введите второе слово: ');
readln(b);
c := length(a) - length(b);
if c = 0 then writeln('Длины слов равны')
else if c > 0 then writeln('Первое слово длиннее второго на ', c)
else writeln('Второе слово длиннее первого на ', -c)
end.
2)
var a: string;
begin
writeln('Введите предложение: ');
readln(a);
case a[length(a)] of
'.': writeln('Предложение повествовательное');
'!': writeln('Предложение восклицательное');
'?': writeln('Предложение вопросительное');
end;
end.
3)
var
a: string;
t: char;
begin
writeln('Введите слово: ');
readln(a);
t := a[1];
a[1] := a[length(a)];
a[length(a)] := t;
writeln('Полученное слово: ', a)
end.<span> </span>
9
код на vbscript
Sub Zadanie18007865()
A = 2
B = 3
A = A * B
B = A + B
C = 2 * B / A * 3
MsgBox c
End Sub
Call Zadanie18007865()
1) var a,b:integer;beginreadln(a,b);if a>b thenwriteln(a+b,' задача решена')else writeln(a*b,' задача решена');end.
2) !!! ; 3 ; 16 ; 7 ; 8 ; 29 ; 66
3) 1
4) -5; 0; -6; 5; -0.4; 0.32; -17; 15; 11; 7; 8
(b∧f)∨(c∧f)∨(f∧(¬a))∨(a∧(¬b)∧(¬c)∧(¬f))
