Var a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b := a div 10;
c := a mod 10;
writeln('Сумма: ', b + c);
writeln('Произведение: ', b*c);
writeln('Перестановка: ', c,b);
end.
Первая
var n,x:integer;
begin
readln(n);
while n <> 0 do begin
x:=x + n mod 10;
n:=n div 10;
end;
if(x mod 2 = 0) then
writeln('true')
else
writeln('false');
end.
Вторая
var x,z,s:integer;
begin
readln(x);
if (x > 99) and (x < 1000) then begin
s:=x;
while s<>0 do begin
z:=z+s mod 10;
s:=s div 10;
end;
if(x*x) = (z*z*z) then
writeln('true')
else
writeln('false');
end
else
writeln('Число должно быть 3-ех значным!');
end.
Третья
Var a,b,c:Real;
Begin
Writeln('Введите a');
Readln(a);
Writeln('Введите b');
Readln(b);
Writeln('Введите c');
Readln(c);
if (a=b) or (a=c) or (b=c) then
writeln ('true')
else
writeln ('false);
end.
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
<u><em>
Тестовое решение:</em></u>
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге
80 Мб = 5 * 2^4 Мб = 5 * 2^14 Кб = 5 * 2^24 байт = 5 * 2^27 бит
На то, чтобы передать этот файл из пункта Б в пункт В, необходимо потратить 5 * 2^27 / 2^20 = 5 * 2^7 = 640 секунд
Так как вся передача заняла 13 минут = 780 секунд, то данные из пункта Б в пункт В начали передавать через 780 - 640 = 140 секунд после начала передачи из пункта А (это не противоречит условию, "затем" определяет только порядок, а не то, что из пункта Б в пункт В начали передавать сразу же, как в пункт Б пришёл первый бит от А).
В 4) 5 кбайт - 5120 120битов - 15байт 16384бит -2кбайта