Ввести с клавиатуры три номера школ программа должна проверить есть ли среди них номер вашей школы если есть то на экран выводится сообщение: номер школы есть иначе: номера школы нет

👇

Ответ:

ksiuu

25.08.2022

Var
a,b,c,d:longint;
begin
readln(a); {Номер вашей школы}
readln(b,c,d); {№ школ}
if (a=b) or (c=a) or (d=a) then writeln(' номер школы есть') else writeln('номера школы нет');
end.

4,6(56 оценок)

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

Ответ:

elzamarg

25.08.2022

Все решения даны в системе программирования
PascalABC.NET 3.2, сборка 1382 от 06.02.2017

Если программа не работает, обновите версию!

№1
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
var im:=a.IndexMax;
Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.

Пример
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16

№2
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
Sort(a,(x,y)->x>y);
a.Println
end.

Пример
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4

№3
begin
var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
Sort(a,(x,y)->x>y); a.Println
end.

Пример
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53

№4
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
var b:=a.Where(x->x>0); b.Println
end.

Пример
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21

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

Ответ:

theodoorka

25.08.2022

Program eewtew;
type
Human = class
public
q: integer; // 1 класс
e: integer; // 2 класс
r: integer; // 3 класс
t: integer; // 4 класс
y: integer // 5 класс
u: integer; // 6 класс
i: integer; // 7 класс
o: integer; // 8 класс
p: integer; // 9 класс
a: integer; // 10 класс
s: integer; // 11 класс
d: integer; // 12 класс
f: integer; // 13 класс
g: integer; // 14 класс
j: integer; // 15 класс
end;
var
H: human;
begin
H:= new Human;
writeln('Введите кол-во хорошистов в 1 классе');
readln(h.q);
writeln('Введите кол-во хорошистов в 2 классе');
readln(h.e);
writeln('Введите кол-во хорошистов в 3 классе');
readln(h.r);
writeln('Введите кол-во хорошистов в 4 классе');
readln(h.t);
writeln('Введите кол-во хорошистов в 5 классе');
readln(h.y);
writeln('Введите кол-во хорошистов в 6 классе');
readln(h.u);
writeln('Введите кол-во хорошистов в 7 классе');
readln(h.i);
writeln('Введите кол-во хорошистов в 8 классе');
readln(h.o);
writeln('Введите кол-во хорошистов в 9 классе');
readln(h.p);
writeln('Введите кол-во хорошистов в 10 классе');
readln(h.a);
writeln('Введите кол-во хорошистов в 11 классе');
readln(h.s);
writeln('Введите кол-во хорошистов в 12 классе');
readln(h.d);
writeln('Введите кол-во хорошистов в 13 классе');
readln(h.f);
writeln('Введите кол-во хорошистов в 14 классе');
readln(h.g);
writeln('Введите кол-во хорошистов в 15 классе');
readln(h.j);
writeln('Мы сорали информацию о классах');
writeln('В 1 классе: ', h.q, ' хорошист(а/ов)');
writeln('В 2 классе: ', h.e, ' хорошист(а/ов)');
writeln('В 3 классе: ', h.r, ' хорошист(а/ов)');
writeln('В 4 классе: ', h.t, ' хорошист(а/ов)');
writeln('В 5 классе: ', h.y, ' хорошист(а/ов)');
writeln('В 6 классе: ', h.u, ' хорошист(а/ов)');
writeln('В 7 классе: ', h.i, ' хорошист(а/ов)');
writeln('В 8 классе: ', h.o, ' хорошист(а/ов)');
writeln('В 9 классе: ', h.p, ' хорошист(а/ов)');
writeln('В 10 классе: ', h.a, ' хорошист(а/ов)');
writeln('В 11 классе: ', h.s, ' хорошист(а/ов)');
writeln('В 12 классе: ', h.d, ' хорошист(а/ов)');
writeln('В 13 классе: ', h.f, ' хорошист(а/ов)');
writeln('В 14 классе: ', h.g, ' хорошист(а/ов)');
writeln('В 15 классе: ', h.j, ' хорошист(а/ов)');
end.

4,8(47 оценок)

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

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

09.12.2022

Как взломать Wi-Fi сеть (WEP) с помощью Airoway и Wifislax...

Образование-и-коммуникации

08.01.2020

Как стать интересным: советы и рекомендации...

Образование-и-коммуникации

28.08.2021

Как написать описательный абзац: эффективные советы и примеры...

Здоровье