Program asd; USES crt; var a,b,s:real; BEGIN Repeat Writeln('Введите отр. число, пока не будет введено, буду долбать! Я жду! '); Readln(a); until a<0; If a<0 then Writeln('Так бы сразу, молодец :) '); END.
Для удобства вычислений считаем, что ширина диапазона дискретизации составляет 100 В (т.е. напряжение может быть равно 0, 1, 2, .. 99 В). При этом получаются 5 интервалов 0 - 19 В 20 - 39 В 40 - 59 В 60 - 79 В 80 - 99 В Значение 54 В попадает в третий интервал и напряжение после дискретизации считается равным 40В (нижняя граница диапазона).
Если очень важно, чтобы и 100В попадало в диапазон дискретизации, то его ширина будут равна 101 В, что потребует ввести поправку 0.2В в границы интервалов. ответ на задачу при этом изменится и будет нецелым.
Не указано, какая используется СУБД, ниже запросы подойдут для Postgresql: 1. select article.id from article where article.text like '%beta%' or '%4%' 2. select article.id from article where comments.text is NULL and article_comment_association.article_id=article.id and article_comment_association.сomment_id=comments.id 3. select users.name from users where users.id=article.user_id and article_comment_association.article_id=article.id and article_comment_association.сomment_id=comments.id 4. SELECT article.id, COUNT(comments.id) AS "CNT" from article, comments where article_comment_association.article_id=article.id and article_comment_association.сomment_id=comments.id
USES crt;
var a,b,s:real;
BEGIN
Repeat
Writeln('Введите отр. число, пока не будет введено, буду долбать! Я жду! ');
Readln(a);
until a<0;
If a<0 then Writeln('Так бы сразу, молодец :) ');
END.
Вот так :)