При поступлении в институт абитуриенты, получившие двойку на первом экзамене, ко второму недопускаются. в массиве а записаны оценки экзаменующихся. подсчитать, сколько человек недопущено ко второму экзамену. "язык паскаль"
281
394
Ответы на вопрос:
const n=10; var a: array[1..n] of integer; i,k: integer; begin write('оценки абитуриентов: '); for i: =1 to n do a[i]: =random(4)+2; for i: =1 to n do write(a[i]: 5); writeln; for i: =1 to n do if a[i]=2 then inc(k); write('не допущены к повторному экзамену ',k,' абитуриента(-ов) '); end.
program sumchisla;
var x,a,b,c,s,p: integer;
begin
writeln('программа нахождения суммы цифр числа');
writeln('введите трехзначное число');
readln(x);
a: =x div 100;
b: =x mod 100 div 10;
c: =x mod 10;
s: =a+b+c;
p: =a*b*c;
writeln ('s= ', s);
writeln ('p= ', p);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Aiauka1120.09.2020 21:59
-
arman8326.01.2022 15:14
-
ikurilo27.12.2020 03:49
-
Herty2243604.06.2021 20:28
-
schooll1312.03.2021 00:25
-
Mojo22824.05.2020 05:26
-
jixecizagjixeci10.06.2023 01:12
-
Енотик8317.08.2020 00:33
-
тупая129430.03.2020 07:07
-
marybyl8618.11.2020 03:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.