На счёт паскалей абс program test_1; var a,b,c,d,e: integer; begin writeln ('какова масса куска янтаря, хранящегося в паланге, если при изменении температуры от 5 до 18 °с его энергия увеличилась на 93,6 кдж? '); writeln('1)9300 г 3)1000'); writeln('2)3600 г 4)2600'); read(a); if a=2 then writeln('правильно! ') else writeln('неправильно'); writeln ('какова температура воды в самом горячем озере на камчатке, если для приготовления ванны объемом 200 л температурой 40 °с в нее влили 40 л воды при 10 °с? '); writeln('1)25 с 3)10 с'); writeln('2)55 с 4)50 с'); read(b); if b=4 then writeln('') else writeln('неправильно'); writeln ('какую емкость имел новый тульский самовар-рекордсмен, если при кпд 50 % он закипал за 20 мин и потреблял ежеминутно 460 г древесного угля, удельная теплота сгорания которого 35 мдж/кг? начальная температура воды 15 °с.'); writeln('1)450 л 3)500 л'); writeln('2)540 л 4)400 л'); read(c); if c=1 then writeln('') else writeln('неправильно'); writeln ('самый тепловой двигатель 1840 г. потреблял 0,77 кг угля при мощности 735 вт. каков кпд установки? удельная теплота сгорания угля 29 мдж/кг.'); writeln('1)13% 3)12%'); writeln('2)14% 4)16%'); read(d); if d=3 then writeln('') else writeln('неправильно'); writeln ('в 1965 г. в кисловодске выпал град, который покрыл почву слоем толщиной 75 см. на сколько изменилась внутренняя энергия каждого квадратного метра при его таянии? насыпная плотность вещества 800 кг/м3.'); writeln('1)175 мдж 3)190 мдж'); writeln('2)180 мдж 4)198 мдж'); read(e); if e=4 then writeln('') else writeln('неправильно'); end. всё тут правильно,но незнаю ,что сделать что б оценку ставил( скажите?

254

452

Посмотреть ответы 2

Ответы на вопрос:

toktamuratovanilufar

Информатика

4,5(14 оценок)

Надо ввести новую переменную, например y, присвоить её к 1: y: =1 дальше, в первой ничего не трогаем, во второй пишем: if b=4 then writeln and y: =y+1 else и тоже самое пишем в 3 ( and y: =y+1 ), т.е., если он ответит на все вопросы правильно,то у будет равняться 5, ну и в конце пишем "врайтлн у" и всё))

sladkaezhka19

Информатика

4,5(30 оценок)

здесь не хватает цифры 6 и 7

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.