Ответы и решения

** счёт паскалей абс program test_1; var a,b,c,d,e:integer; begin writeln ('Какова масса...

0 голосов
66 просмотров

На счёт паскалей абс
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.
всё тут правильно,но незнаю ,что сделать что б оценку ставил(
Скажите?


Информатика (15 баллов) | 66 просмотров
0

нужно только что б оценку сиавил

0

Нет,не так поняли.Нужно что бы после выполнения 5-ти задах,программа поставила оценку.

0

задач*

0

добавить строчку,я не помню какую

0

после if a=2

0

после каждой такой строчки

Дан 1 ответ
0 голосов
Правильный ответ

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

Начинающий (653 баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей