Program test10voprosov ;
Var
otvet1, otvet2, otvet3, otvet4, otvet5, otvet6, otvet7, otvet8, otvet9, otvet10:String;
begin
WriteLn ('1.В каком году Россия стала империей? ' ) ;
ReadLn (otvet1) ;
WriteLn ('2.Сколько углов у квадрата? ' ) ;
ReadLn (otvet2) ;
WriteLn ('3. Сколько сейчас времени? ' ) ;
ReadLn (otvet3) ;
WriteLn ('4. В каком году родился Пушкин? ' ) ;
ReadLn (otvet4) ;
WriteLn ('5. Сколько городов в нашей области? ' ) ;
ReadLn (otvet5) ;
WriteLn ('6. Кто является президентом РФ на данный момент ? ' ) ;
ReadLn (otvet6) ;
WriteLn ('7.В каком году распался СССР ? ' ) ;
ReadLn (otvet7) ;
WriteLn ('8. Как вас зовут ? ' ) ;
ReadLn (otvet8) ;
WriteLn ('9. Сколько вам лет ? ' ) ;
ReadLn (otvet9) ;
WriteLn ('10. В каком месяце у вас др? ' ) ;
ReadLn (otvet10) ;
end.
1)
number_list = [0, 15, 12, -9, -8, 58, 45, 36, -85, 58, 36, -45, 2, 3, 25, -9]
amount = 0
for n in number_list:
if n > 0:
amount += n
print('сумма положительных чисел: ' + str(amount))
negative_numbers = []
for i in number_list:
if i < 0:
negative_numbers.append(i)
print('количество отрицательных элементов: ' + str(len(negative_numbers)))
2)
number_list = []
for n in range(8):
number_list.append(int(input()))
print('массив:', number_list)
multiplication = 1
for i in number_list:
if i != 0:
multiplication = multiplication * i
print('произведение элементов, не равных нулю: ' + str(multiplication))
1.
Var x : real;Beginreadln(x);if (x<=4) and (x>=0) thenWriteln('Число принадлежит интервалу от 0 до 4')elseWriteln('Число не принадлежит интервалу от 0 до 4');Readln(x);end. // Readln в конце можно не писать, это делается для того, чтобы //программа остановилась и можно было посмотреть результат!
2.
Var x : longint;BeginReadln(x);if (x mod 5 = 0) thenWriteln('Число делится на 5!')elseWriteln('Число не делится на 5!');if (x mod 10 = 0) thenWriteln('Число делится на 10!')elseWriteln('Число не делится на 10!');Readln(x);end. // Тут с Readln та же фигня