Домики разных цветов крышы дымари и дым погнутае
var a,b:integer;
begin
writeln ('Введите два числа:');
read (a,b);
if a > b then begin
writeln ('Максимальное число: ',a);
end
else begin
writeln ('Максимальное число: ',b);
end;
end.
<span>Алгоритм "дискретности" должен представлять процесс решения задачи как последовательное выполнение простых (или ранее определенных) шагов. Каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего.</span>
Например: Ваня купил ручку, чтобы обменять с Мишей на карандаш. Если ручки не будет, то следовательно не будет и карандаша.
А вот "<span>не удовлетворяющего свойству дискретности" Ваня купил ручку и всё на этом закончилось.</span>
Удачи!
Вход: CD-DVD, дискеты, сканер, ввод с клавиатуры, интернет, флешка, запись с микрофона
Вывод: (монитор), печать, флешка,
Var n,m : Integer;
Begin
Write (' введите N: '); Readln (n);
Write (' введите M: '); Readln (m);
Writeln ((n+m)*(m-n+1) div 2);
end.