а алгоритм
Объяснение:
Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения результата решения задачи за конечное число действий.
Var a,b,c,i:integer;
begin
i:=0;
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Write('3-число='); Readln(c);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
Writeln(i,' чисел равных нулю');
end.
Var
a,b:Integer;
Begin
Read(a,b);
if (a>b) then Writeln(b,' ',a)
else Writeln(a,' ',b);
end.
Ответ:
1,3,5,7
Объяснение:
Если-не-правильно-извини-но-вроде-так-должно-быть!