var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2 =0 then writeln ('Число чётное') else writeln ('Число нечётное');
if ((a div 100) mod 2=0) then writeln ('2-я цифра чётная') else writeln ('2-я цифра нечётная');
end.
Вот проверила все правильно
Python 3.7.0
import random
pr = 1
for i in range(5):
x = round(random.uniform(1, 1.3), 2)
pr *= x
print(x)
srgeom = round(pr ** (1 / 5), 2)
print("Среднее геометрическое чисел: " + str(srgeom))
используй File Viwer Plus или Notepad++, очень крутые проги, сам использую
Turbo Pascal
1)USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+1;
Write(A[i],' ');
end;
READLN;
<span>END.
2)
USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+i;
Write(A[i],' ');
end;
READLN;
<span>END.</span></span>