<span>1) a=число 376 четное, b=</span><span>число 376 трехзначное: a & b
2) a=зимой дети катаются на коньках, b=</span><span>зимой дети катаются на лыжах: a | b
3) a=новый год мы встретим на даче, b= </span><span>новый год мы встретим на Красной площади: a | b
4) a=солнце движется вокруг земли: ¬a
5) a=земля имеет форму шара, b=шар из космоса кажется голубым: a & b
6) a=был урок математики, b=старшеклассники отвечали на вопросы учителя, c=</span><span><span>старшеклассники</span> писали самостоятельную работу: a & b & c</span>
Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub
<em>// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
Delete(s,4,1); Delete(s,2,1);
Writeln(s)
end.
<u>Пример</u>
Вводите: Удаление пары символов
Уаение пары символов
1) Переведем скорость в кб/с. 2 621 440 бит/с=320 кб/с
Файл размером 10 Мб или 10240 Кб будет передаваться 32 секунды
2)Переведем скорость 256 000 бит/с=32 кб/с
10 мин=600 с. Значит наибольший файл будет иметь размер 19200 Кб
3)Не знаю