В 1 это 4) а дальше должно быть в учебнике
Var a,b,c,d,e:real;
Begin
WriteLn('Отрезок [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('Введите три числа');
ReadLn(c,d,e);
if (a<=c)and(a<=d)and(a<=e)and(c<=b)and(d<=b)and(e<=b) then
WriteLn('Числа принадлежат заданному отрезку')
else
WriteLn('Числа не принадлежат заданному отрезку');
ReadLn
End.
var
N,sum,k: integer;
begin
sum:=0;
WriteLn('Введите N');
readln(N);
while N <=9 do
begin
writeln('Введите корректное число (больше или равное 10)');
readln(N);
end;
while N >=10 do
begin
k:= N mod 10;
N:= N div 10;
sum:= sum + k;
end;
sum:=sum + N;
write('Первая цифра числа ');
writeln(N);
write('Сума цифр числа ');
writeln(sum);
end.
<span>Al:=sqr (a) ⇒ integer
A2:=16 mod 5 ⇒ integer
A3:=sqr (b) ⇒ real
A4:=2.5*a ⇒real
A5:=5 div 1/3 ⇒ real
A6:=a-A1 ⇒ integer
A7:a>b ⇒ boolean
A8:=A2/b
</span>⇒ real
По задаче 3. Сразу замечаем, что в числе присутствует "цифра" А, а это значит, что число записано в 16-ричной системе, то есть "цифра А - это "цифра" 10 в 16-ричной системе. Тогда:
1*10^8+10*10^7+ 4+10^6+ ... + 7+10^1+8*10^0=112766296184 (пожалуйста, пересчитай, я мог ошибиться... )
По задаче 4
Х + У = 1100112+1358 = 1101470
а далее уголком дели на 2, НЕ ЗАБУДЬ РЕЗУЛЬТАТ ЗАПИСАТЬ В ОБРАТНОМ ПОРЯДКЕ!!!!
Ответ 1 000 11 00 111 0 100 1111 0 (не запутайся в нулях и единицах!!!)
Ну а далее я все равно не врубился в условия остальных задач((( О какой ФОРМУЛЕ идет речь в заднии номер 5??????