Program p1;
const n=100;
var a:array[1..100]of integer;
i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10,20);
end;
for i:=1 to n do
begin
if a[i] mod 2=0 then s:=s+a[i];
end;
Writeln('Сумма чётных чисел = ',s);
end.
Программа на Паскале:
Program BiFi;
Var R,a:real;
Begin
readln(R,a);
if a<=(R*sqrt(2)) then writeln('Yes');
else writeln('NO');
readln;
end.
# python 3
b = 5
q = 1/5
s = 0
for _ in range(5):
s += b
b *= q
print(s)
n = input().strip()
print(int(n[0]) - int(n[2]))
Пример ввода:
1999
Пример вывода:
6.248
-8