Объяснение:
program Randomizer;
const
RndLimit = 10000;
var
x, SumX : integer;
begin
SumX := 0;
// Коммент: случайное число в паскале всегда генерируется от 0 до заданного но нам необходимо от 1000, поэтому в цикле repeat...until оно будет генерироваться до тех пор, пока не станет > 999
Repeat x := Random(RndLimit) until x > 999;
writeln ('Random X= ', x);
SumX := SumX + (x div 1000) + (x mod 1000 div 100) + (x mod 1000 mod 100 div 10) + (x mod 1000 mod 100 mod 10);
writeln ('Sum = ', SumX);
end.
запускаем
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
21 lines compiled, 0.1 sec
Random X= 5488
Sum = 25
1)
number_list = []
for i in range(4):
number_list.append(int(input()))
print('максимальное число: ' + str(max(number_list)))
print('минимальное число: ' + str(min(number_list)))
2)
first_list = [int(input()) for n in range(3)]
second_list = []
for number in first_list:
second_list.append(number)
first_list.sort()
if first_list == second_list:
print('по росту .')
else:
print('не по росту !')
3)
month_ask = str(input())
if month_ask in ['12', '1', '2', '01', '02']:
print('Зима .')
elif month_ask in ['3', '4', '5', '03', '04', '05']:
print('Весна .')
elif month_ask in ['6', '7', '8', '06', '07', '08']:
print('Лето .')
elif month_ask in ['9', '10', '11', '09']:
print('Осень .')
4)
number = str(input())
if len(number) == 3:
print('Верно .')
else:
print('Не верно .')
5)
number = str(input())
first_list = []
for n in number:
first_list.append(n)
second_list = []
for i in first_list:
second_list.append(i)
first_list.reverse()
print(first_list)
print(second_list)
if first_list == second_list:
print('Верно .')
else:
print('Не верно')
Поделитесь своими знаниями, ответьте на вопрос:
:алфавит индейцев костко состоит из 64-x символов. какое количество информации несет одна буква этого алфавита