Только один вариант дает положительный результат. Когда первая цифра числа и третья равны 1
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a:integer;
begin
write('Введите число ');readln(a);
if ((a div 1000)=1)and ((a div 10 mod 10)*(a div 10 mod 10)= 1)then
writeln('квадрат первой цифры равен кубу третьей цифры этого числа')
else
writeln('квадрат первой цифры не равен кубу третьей цифры этого числа')
end.
Тест №1
Введите число 1214
квадрат первой цифры равен кубу третьей цифры этого числа
Тест №2
Введите число 2237
квадрат первой цифры не равен кубу третьей цифры этого числа
Vc =8Мбит/с =1Мбайт/с - пропускная способность спутника
vт =256Кбит/с =32Кбайт/с -скорость передачи с телефона
Один фрагмент передачи информации 1Мбайт,
Нужны 40Мбайтов. Всего 40 фрагментов передачи информации.
1 фрагмент состоит из:
1) Васин запрос длится 64Кбайта : vт =64:32 =2(с)
2)передача со спутника: 1Мбайта :vc =1:1=1(c)
время передачи одного фрагмента =3с
время передачи сорока фрагментов = 40*3 =120(с)
При х=3 ((0>6)+-(-2>8))*(12>25)=(0+1)*0=0 ложь
при х=9 ((6>6)+-(1>8))*(36>25)=(0+1)*1=1 истина
при х=7 и х=2 вторая скобка дает 7*4>25 и 2*4>25 ложь, т.е. 0, при умножении дает тож 0,
ОТВЕТ: №2, при х=9
Есть специальные программы, которые позволяют передавать файлы. Одной из таких является программа BlueSoleil.