Автор Вероника Васькович задал вопрос в разделе Другие языки и технологии
Помогите пожалуйста составить программы в ABC pascal с циклом While! и получил лучший ответ
Ответ от Redis[гуру]
синтаксис у while такой:
while (условие = истина) do block;
Где блок это или одна команда, или бегин-енд с несколькими.
Ответ от Sasha Programmer[гуру]
№1.
var
i:integer;
begin
i:= 1;
while i <= 10 do begin
write(i,' ');
inc(i);
end;
end.
================================
№2.
var
i,j,a:integer;
begin
i:= 1;
while i <= 10 do begin
a := i;
for j := 1 to 3 do begin
write(a:5);
a := a * i;
end;
inc(i);
writeln();
end;
end.
=========================
№3.
var
i:integer;
begin
i := 10;
while i <= 20 do begin
if(i mod 2 = 0) then writeln(i);
// if not(odd(i)) then writeln(i);
inc(i);
end;
end.
№1.
var
i:integer;
begin
i:= 1;
while i <= 10 do begin
write(i,' ');
inc(i);
end;
end.
================================
№2.
var
i,j,a:integer;
begin
i:= 1;
while i <= 10 do begin
a := i;
for j := 1 to 3 do begin
write(a:5);
a := a * i;
end;
inc(i);
writeln();
end;
end.
=========================
№3.
var
i:integer;
begin
i := 10;
while i <= 20 do begin
if(i mod 2 = 0) then writeln(i);
// if not(odd(i)) then writeln(i);
inc(i);
end;
end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите пожалуйста составить программы в ABC pascal с циклом While!