15. Опишите словами, что делает ниже приведенная программа. Что выдаст программа в качестве ответа, если ввести х = 23, y = 5: program zadanie;
var x, y, r q: integer;
begin
write ('Введите два числа»');
readln (x, y);
r:=x; q:=0;
repeat
r:=r – y; q:=q+1;
until r>=y;
writeln ('r= ', r, 'q= ', q);
end.
Вывод на экран частного от деления (и остатка) числа X на число Y. При вводе 23 и 5 программа выдаст 4 и 3​

из 8 выливаем

из 5 вливаем в 8

набираем 5

из пяти снова выливаем в 8

в пяти остается 2

выливаем из 8

из 5 вливаем в 8

наливаем в 5

выливаем из 5 в 8

во второй получается 7 литров

b) 9 лет

2020=4

2011=4 

-,андрей!

-,паша!

-как у тебя дела?

-у меня всё хорошо,а ты как?

-у меня всё отлично. что спросил

-не за что.пойдёшь сегодня гулять?

-да,конечно.а во сколько?

-в 5 часов.

-хорошо.ладно пока.

пока.встретимся на улице

-хорошо.

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.