Ответ:
program numab;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.
Сходи в книжный магазин или в несколько.. И тадааам
Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if a<>b then begin
if (a>b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.
незачто
var
C:integer;
begin
C := 0;
while C <= 400 do
begin
writeln('C = ', C, '; F = ', 1.8 * C + 32);
C := C + 5;
end;
readln;
end.
Скриншот результата программы и программа в приложениях.
1 программа с предусловием цикл while - end;
2 программа с постусловием цикл repeat - until;
Блок схем с предусловием приложена