Надо программировать в pascal abc,не могу придумать ! : найти количество хорошистов в сельской школе.если известно,что в ней 15 классов.количество хорошистов в каждом классе вводятся с клавиатуры.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Танзила44

06.03.2023 14:18

12. Что будет выведено на экран в результате работы следующего цикла (k – целая переменная)? а) k = 1 while k 5: print( k, end= ) k += 1 ответ: б) k = 4 while k 10:...

markzastawa

07.01.2023 15:46

Непрерывная задача о рюкзаке. Имеются n предметов. Для каждого предмета i (i=1, 2, ..., n) известен вес gi и прибыль ci, которая получается при транспортировке. Имеется...

Sanyapro2002

26.06.2022 20:38

Сост. прогр. Рез-ты экзаменов представлены в виде списка из N строк, в кажд. строке кот. записаны фам. студента и отметки по кажд. из M экзам. Найти кол-во студ.,...

Lakensssss

30.03.2023 13:17

99!! = 1·3·...·97·99 составьте программу найти факториал...

aidaadilbekova

21.12.2020 16:40

почему при перезагруске пк цвет клавиатуры меняется или вообще отключается (как это исправить)...

333307

14.08.2022 10:32

Какое количество цветов в палитре если информационный объем изображен размером 512х512 равен 224 килобайт ...

ZinW

10.10.2020 21:38

Как сделать цикл в цикле учиталеь сказал так не понялверхнее...

VanoK48

21.12.2022 06:38

0,753 развёрнутая запись числа х10 х10 х10...

ArtimonТёма22887

28.06.2022 22:40

Напишите функцию с именем numindex, которая принимает два параметра myarray и n, где myarray - это массив, а n - это число. функция должна возвращать массив индексов...

ivanperepelkin

15.01.2020 04:47

Отпишите если можете свяжусь с вами в любой соцсети, просто фотографий 6 , с олимпиадой по информатике. 6-7 класс, надо сделать до 6 апреля. три : конвейеры, светофоры...

Ответ:

милана200229

05.10.2020 11:34

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.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку