Персональный компьютер- надсистема, включающая подсистемы аппаратного обеспечения, программного обеспечения и информационных ресурсов
x = float(input('Введите число x '))
y = float(input('Введите число y '))
proz = int(x) * int(y)
print('Произведение = ' + str(proz))
Program zuevyuliya;
var a,sum,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for a:=a to b do
inc(sum,a);
writeln('sum=',sum);
<span>end.</span>
Вот программа:
uses Crt;
var i: integer;
begin
ClrScr;
for i:=65 to 90 do
Write(Chr(i):4);
WriteLn; WriteLn;
for i:=97 to 122 do
Write(Chr(i):4);
WriteLn;
ReadLn;
end.
Var
i:integer;
a,c:array[1..4]of integer;
b:array[1..2]of integer;
begin
write('Массив а: ');
for i:=1 to 4 do
begin
a[i]:=random(10);
if a[i]>b[1] then b[1]:=a[i];
c[i]:=random(10);
if c[i]>b[2] then b[2]:=c[i];
write(a[i],' ');
end;
writeln;
write('Массив c: ');
for i:=1 to 4 do write(c[i],' ');
writeln;
write('Массив b: ');
for i:=1 to 2 do write(b[i],' ');
<span>end.</span>