Ответ:
Вот:
Объяснение:
import random
a = []
b = []
c = []
for i in range(0, 50):
d = random.randint(1, 100)
if d < 10:
a.append(d)
elif d < 30:
b.append(d)
else:
c.append(d)
print("Маленькие картошки: ", a)
print("Средние картошки: ", b)
print("Огромные картошки: ", c)
Ответ:
Задание 1
a = int(input())
b = int(input())
c = int(input())
if (a % 2 == 0 and b % 2 != 0) or (a % 2 != 0 and b % 2 == 0):
print("YES")
elif (a % 2 == 0 and c % 2 != 0) or (a % 2 != 0 and c % 2 == 0):
print("YES")
elif (b % 2 == 0 and c % 2 != 0) or (b % 2 != 0 and c % 2 == 0):
print("YES")
else:
print("NO")
Задание 2
Var i,j,t:integer;
a:array[1..3] of integer;
Begin
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
for j:=i+1 to 3 do
if a[i]>=a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=1 to 3 do
write(a[i],' ');
End.
Объяснение:
Если цепочки две, то выводится ближайшая. Пойдет?
//t1.txt должен быть в папке с программой
//Pascal
var
f: text;
numValue, Counts, n, c, t, i: integer;
begin
assign(f, 't1.txt');
reset(f);
Counts := 0;
c := 0;
while not eof(f) do
begin
readln(f, n);
if (c = 0) or (n = t) then
c := c + 1
else
c := 1;
t := n;
if c > Counts then
begin
Counts := c;
numValue := n
end
end;
close(f);
assign(f, 't2.txt');
rewrite(f);
writeln('Длина цепочки: ', Counts);
for i := 1 to Counts do
writeln(f, numValue);
close(f)
end.
просто
var
Form1: TForm1;
h, g, s: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=Round(Strtoint(Edit1.Text)/60);
g:=Round(h/60);
h:=h-g*60;
s:=h*60;
Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
end;
end.
только тут с небольшой ошибкой показывает. +-5 сек
end.
