program number7;
uses crt;
var A: integer;
begin
clrscr;
A:=(116 div 10)*(116 mod 15) div 2 +116 mod 6;
writeln('a=',A);
end.
a=62, div 10 - делит число на 10 и выделяет целую часть, mod 15 - делит число на 15 и выделяет остаток от деления , div 2 - делит число на 2 и выделяет целую часть, mod 6 - делит число на 6 и выделяет остаток
Ответ:
Если часы только целые var a:integer;
Объяснение:
program Project1;
var a:real;
begin
write('Введите время, которое тратите на уроки: ');
readln(a);
if a<=1 then
write('Вы ленитесь')
else
if a<=3 then writeln('Это оптимальное время')
else writeln('Подумайте о здоровье');
readln;
end.
Как бы написал я:
program n_1;
var x1, x2, y1, y2, x, y: integer;
begin
writeln ('Введите значения координат(x1,x2,y1,y2,x,y):');
readln (x1, x2, y1, y2, x, y);
if (x>x1) and (x<x2) and (y>y2) and (y<y1) then writeln('Точка с координатами (',x,';',y,') пренадлежит прямоугольнику')
else writeln('Точка с координатами (',x,';',y,') не пренадлежит прямоугольнику');
end.
Булевой переменной не нужно, она же 1 раз используется.
Далее, ошибка была (x<2) нужно было
Ну или если только без ошибки, то вот:
program n_1;
var x1, x2, y1, y2, x, y: integer;
a: Boolean;
begin
writeln ('Введите значения координат');
readln (x1, x2, y1, y2, x, y);
a:= (x>x1)and(x<x2)and(y>y2)and(y<y1);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.
