Дано:
2стр
60строк
i=8бит
найти iбольшую-I
решение:
I=2*60*80=9600бит их надо перевести в байты чтобы потом перевести в килобайты=>9600/8=1200байт=1200*8/1024=9,375кбайт
вроде так)
# # Код на ruby 2.2.3p173
def zadanie(str)
p str
str = str.downcase
a = str.split(" ")
return [str, a.last.count("а")]
end
# Примеры применения
p zadanie("Шла Саша по шоссе и сосала сушку")
p zadanie("А роза упала на лапу азора")
p zadanie("Чему быть - тому не миновать")
Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.
Пример:
20
<span>3 4 5
5 12 13
6 8 10
8 15 17
9 12 15</span>
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.