Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.
Мария живет в красном доме, где 2 этажа.
<span>Андрей живет в зеленом доме, где 4 этажа.
</span><span>Сергей живет в желтом доме, где 5 этажей.
</span><span>Ирина живет в синем доме, где 3 этажа.</span>
Изменил некоторые таблицы. Данных очень мало. Придумывай и набивай еще. Надо, чтобы поездок было много, в разные месяца и года. База находится по ссылке https://yadi.sk/d/pjPhSDS1TMjF4
Var
mas:array[1..10]of integer;
i:integer;
Begin
write('Введите 10чисел: ');
for i:=1 to 10 do readln(mas[i]);
write('Четными являются: ');
for i:=1 to 10 do<span> if (mas[i] mod 2 = 0) then write(mas[i],' ');
</span>End.
<span>чисел - 10000</span>
<span>Каждое тринадцатое число делится на 13</span>
<span> значит надо 10000 поделить на 13, получается 769</span>
<span>теперь числа что делятся на 17, 10000 поделить на 17, получается 588</span>
<span>10000-588-769=8643</span>