Начало
|
введите значения катетов
|
ввод a,b
|
g:=sqrt(a*a+b*b)
|
вывод g
|
конец
Вот код:
word = input()
while len(word) >= 1:
print(word)
word = word[1:-1]
Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.
Связь или есть варианты информаций ?
8 бит - 1 байт бла бла бла бла