П0 0 П1 1 0 / П2 {x} 1 0 * ИП1 + П1 ИП2 [x] 1 0 / П2 {x} 1 0 * ИП1 + П1 ИП2 [x] ИП1 + С/П
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
Это обычная математика, тебе дано скорость и время - надо найти путь
s = V*t = 102400 бит/с * 5с= 512000 бит
теперь переведем в килобайты
8 бит = 1 байт
1024 байта = 1 килобайт
512000 бит / 8 = 64000 байт
64000/1024 = 62,5 кбайт
ответ 62,5 кбайт
примерный код, т.к. на кумире писала последний раз год назад где-то, подкорректируйте ввод и лесенку
цел а
ввод а
если a mod 10 = 5 , 6, 7, 8, 9 или a mod 100 = 11 12, 13, 14, 15, ..., 19 то
вывод "лет"
иначе
если a mod 10 = 2 3,4 то
вывод "года"
иначе
если a mod 10 = 1 то
вывод "год"
Как бы написал я:
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.