Я тебя понимаю я тоже не понимаю мы в одной щколе?
1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
вы получите факториал 5! = 120.
var
f, i:integer;
begin
f := 1;
for i := 1 to 5 do
f := f * i;
writeln (f);
end.
Я так понимаю вам нужна программа на Паскале
program zadacha;
var s,k,n,p,i:integer;
begin
s:=0;
p:=1;
readln(n,k);
for i:=1 to n do p:=p*10;
for i:=trunc(p/10) to p-1 do
if i mod k=0 then s:=s+i;
write(s);
<span>end.</span>
№3
A) 3
B) 4
C) 6,7
D) 1,8
E)2,5
#4
Перенос строки
№5
a)
#6)
print("What gas is meeded for respiration?")
print("A: Oxygen")
print("/n")
print("B: Nitrogen")
print("/n")
answer = input ("enter a letter A-B")
if answer == "A"
print("You got it fight")