Ниже приведена программа, записанная на языке программирования Паскаль.
var s, t: integer
begin
readIn(s);
readIn(t);
if (s > 4) and (t >= 1)
then
writeIn('ДА')
else writeIn('НЕТ')
end.
Было проведено 10 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s,t): (4,9); (10,7); (9,9); (5,2); (12,8); (3,14); (2,8); (-6,-18); (14,8); (20,20).
Сколько было запусков, при которых программа напечатала "НЕТ с информатикой, неуверенна в том, что правильно сама ответила) Заранее
Ответы на вопрос:
решал на паскале.
первая: var i: integer; s: string; a: array[1..3] of integer; t.q,z: boolean; beginreadln(i); q: =false; t: =false; a[1]: =i mod 10; a[2]: =i div 10 mod 10; a[3]: =i div 10 div 10; for i: =1 to 3 do
beginif a[i]=4 then
q: =true;
if (a[i]=7) and (q=true) then t: =true;
if a[i]=7 then z: =true;
end;
if t=true then writeln('vhodyat oba) else if (q=true) and (z=false) then writeln('vhodit 4') else if (q=false) and (z=true) then writeln('vhodut 7'); readln; end.
вторая: var a,b,c,min: integer; beginmin: =32000; readln(a,b,c); if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln ('minimalnoe - ',min); readln; end.
третья:
var a,b,c: integer; x,y,d: real; beginreadln(a,b,c); d: =b*b-(4*a*c); if d=0 thenbeginx: =(-b/2*a); writeln('one root: ',x: 0: 0); end; if d> 0 thenbeginx: =(-b+sqrt(d))/2*a; y: =(-b-sqrt(d))/2*a; if y> x thenwriteln('two roots: ',x: 0: 0,' ',y: 0: 0) else writeln('two roots: ',y: 0: 0,' ',x: 0: 0); end; if d< 0 then writeln('no roots'); readln; end.:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Buboschka05.12.2022 08:25
-
arinka9013.10.2021 16:47
-
arnalismailov22.06.2022 23:13
-
Lev122304.05.2022 20:25
-
katy99424.01.2021 11:58
-
lovchike13.08.2020 20:49
-
хавал21.12.2022 11:53
-
PraPira27.09.2020 11:46
-
bgs654426.10.2021 20:51
-
Какашка5432127.01.2020 07:34
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.