Program q;
var a,b,sum,proiz:integer;
begin
readln(a);
readln(b);
sum:=a+b;
proiz:=a*b;
writeln('Сумма чисел=',sum);
writeln('Произведение чисел=',proiz);
end.
Const k=10;
type arr=array[1..k] of integer;
procedure p1(var x:arr);
var i:integer;
begin
for i:=1 to k do
begin
x[i]:=random(30)-15;
write(x[i]:3);
end;
writeln;
end;
function f1(var x:arr):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to k do
if x[i]<0 then s:=s+x[i]*x[i];
f1:=s;
end;
var a,b:arr; m,n:integer; x:real;
begin
writeln('a:');
p1(a);
writeln('b:');
p1(b);
m:=f1(a);
n:=f1(b);
writeln('m = ',m,' n = ',n);
x:=m/(n-m);
writeln('x = ',x:6:4);
end.
Пример:
a:
<span>-13 7-11 11 -3 4 13 3 -1 2
b:
8 -2 5 10 9 8 -8 12 7-13
m = 300 n = 237
x = -4.7619</span>
var num,num1,num2:integer;
begin
Write('Введите число:');
ReadLn(num);
Write('Введите a:');
ReadLn(num1);
Write('Введите b:');
ReadLn(num2);
if((num>=num1)and(num<=num2)) then
WriteLn('Число в диапазоне!')
else
WriteLn('Число вне диапазона!');
end.
Program arrays;
var a:array [1..3,1..6] of integer;
i,j:byte;
begin
for i:=1 to 3 do
for j:=0 to 1 do
begin
a[i,1+3*j]:=random(101)+10;
a[i,2+3*j]:=random((1001)+100) div (i+2*j);
a[i,3+3*j]:=(random(101)+10) mod 10;
end;
for i:=1 to 3 do
begin
for j:=1 to 6 do
write(a[i,j],' ');
writeln;
end;
end.
//Если нужны пояснения - пишите
1.Ирина и Тимур = не информатика
Камилла и Эльдар = не информатика
Тимур = боится физики
Камилла, Тимур = не литература, но плавают
Тимур и Камилла = поздравили математика
Ирена = cожалеет мало времени на литературу
победители по: физике, математике, информатике, литературе и географии.
Залим - информатика (Ирена и Тимур = учит, Камилла и Эльдар = интересуются)
Тимур - не физика, не литература, не математика, не информатика,
значит география
Камилла - не информатика, не литература, не математика, уже не география => Физика
Ирена - не информатика, не физика, не география => Литература
<span>Эльдар - Математика
2.</span><span>Ни Щедрин, ни Коновалов пилотом быть не могут.
Ни Потапов, ни Коновалов пока еще не штурманы.
Радист не Щедрин и не Самойлов.
Фамилия синоптика не Щедрин и не Семенов.
Бортмеханик не Потапов и не Щедрин.
</span><span>Синоптик – не Коновалов и не Семенов
</span><span>Радист – не Коновалов и не Семенов
</span>Получаем:
Потапов - радист
Щедрин - штурман
Семенов - пилот
Коновалов - Бортмеханик
<span>Самойлов - синоптик
3.</span>иван- красная
михаил- черная
борис- синяя
петр- белая
<span>александр- голубая</span>