Решите . а) маша, даша, катя и оля учатся в одной школе, но в разных классах: 7 «а», 7 «б», 8 «а». катя и оля – одноклассницы. маша и катя учились в классах с одинаковой . маша и даша были ученицами седьмого класса. кто в каком классе учился? б) в семье четверо детей – 5, 8, 13 и 15 лет. их имена – аня, боря, валя и галя. валя ходит в детский сад. аня старше бори. сумма возрастов ани и вали делится на 3. кому сколько лет? в) инопланетяне сообщили, что в их системе 3 планеты а, б, в и что они живут на второй планете. вдруг передатчик испортился и два сообщения: а – не третья, б – не вторая, ― оказались ложными. на какой планете живут разумные существа? г) в замке три комнаты, в каждой из которых находится один из персонажей – либо принцесса, либо тигр, либо дракон. на двери каждой из комнат висит табличка с надписью. на первой двери написано: «здесь находится принцесса или тигр». на второй написано: «здесь находится тигр». на третьей написано: «здесь находится дракон». известно, что таблички на дверях комнат не соответствуют тому, что находится в комнатах. определить, кто в какой комнате находится.

👇

Ответ:

viktoria190290

15.03.2023

1. Маша 7а, Даша 7б, Катя и Оля 8а...2. Валя 5, Боря 8, Аня 13, Галя 153. Не уверена, но у меня получилось В Б А, и они живут на Б4.Дракон в 1, тигр в 3, принцесса во 2.

4,4(74 оценок)

Открыть все ответы

Ответ:

Libert02

15.03.2023

1)
Program massiv1;
Uses Crt;
Type Mas=Array [1..10] of integer;
Var a:Mas; d,s:integer;
Procedure Vvod(Var x:Mas);
Var i:Integer;
Begin For i:=1 To 10 Do
x[i]:=Random(50);
End;
Procedure Vivod(Var x:Mas);
Var i:Integer;
Begin
For i:=1 To 10 do Write(x[i]:4);
writeln;
End;
Procedure p1(Var x:Mas; d:integer; Var s:integer);
Var i:Integer;
Begin
s:=0;
For i:=1 To 10 Do
If x[i] mod d=0 Then s:=s+x[i];
End;
Begin
Vvod(a);
Vivod(a);
write('d = ');
readln(d);
p1(a,d,s);
Writeln('Сумма элементов, кратных ',d,' = ',s);
End.

Пример:
4 18 37 15 45 4 9 48 47 27
d = 3
Сумма элементов, кратных 3 = 162

2)
Program massiv2;
Uses Crt;
Type Mas=Array [1..10] of Real;
Var a:Mas; k:integer;
Procedure Vvod(Var x:Mas);
Var i:Integer;
Begin For i:=1 To 10 Do
x[i]:=30*Random-20;{(B-A)*random+A}
End;
Procedure Vivod(Var x:Mas);
Var i:Integer;
Begin
For i:=1 To 10 do Write(x[i]:8:2);
writeln;
End;
Procedure p2(Var x:Mas;Var k:integer);
Var i:Integer;
Begin
k:=0;
For i:=1 To 10 Do
If x[i]<0 Then k:=k+1;
End;
Begin
Vvod(a);
Vivod(a);
p2(a,k);
Writeln('Количество отрицательных элементов = ',k);
End.

Пример:
-13.77 -11.34 -2.35 7.69 -18.85 -12.48 -6.11 -17.10 7.12 -9.60
Количество отрицательных элементов = 8

3)
Program massiv3;
Uses Crt;
Type Mas=Array [1..10] of Real;
Var a:Mas; p:real;
Procedure Vvod(Var x:Mas);
Var i:Integer;
Begin For i:=1 To 10 Do
x[i]:=30*Random;{(B-A)*random+A}
End;
Procedure Vivod(Var x:Mas);
Var i:Integer;
Begin
For i:=1 To 10 do Write(x[i]:8:2);
writeln;
End;
Procedure p3(Var x:Mas;Var p:real);
Var i:Integer;
Begin
p:=1;
For i:=1 To 10 Do
If x[i]<10 Then p:=p*x[i];
End;
Begin
Vvod(a);
Vivod(a);
p3(a,p);
Writeln('Произведение элементов, меньших десяти = ',p:8:3);
End.

Пример:
24.36 22.50 3.31 5.50 21.68 8.22 19.89 24.86 2.69 23.78
Произведение элементов, меньших десяти = 402.027

4,4(26 оценок)

Ответ:

sofiotap3

15.03.2023

Это, если не учитывать, что введённые числа могут быть одинаковы

program p17;
var
x, x1, x2: integer;
a,a1,a2: integer;
beginwrite ('Введите число: ');
readln (x);
write ('Введите число: ');
readln (x1);
write ('Введите число: ');
readln (x2);
if (x>x1) and (x>x2) then a:=x
else if (x1>x) and (x1>x2) then a:=x1
else if (x2>x) and (x2>x1) then a:=x2;

if (x<x1) and (x<x2) then a1:=x
else if (x1<x) and (x1<x2) then a1:=x1
else if (x2<x) and (x2<x1) then a1:=x2;

a2:=a+a1;
writeln ('Cумма самого большого и самого маленького числа, введённого вами: ',a2);

end.

4,7(97 оценок)

Это интересно:

Компьютеры-и-электроника

06.09.2021

Как узнать, что пользователь заблокировал вас в Facebook Messenger...

Финансы-и-бизнес

14.01.2023

Рассчитываем налог на собственность: полезные советы и всё, что нужно знать...

Дом-и-сад

13.12.2020

Простые способы удаления жевательной резинки с бетона...

Компьютеры-и-электроника