Предмет: Информатика,
автор: TupoyTulen
помогите с информатикой 7 класс, цикл с предусловием while, 3 и 4 задачи
Приложения:
Ответы
Автор ответа:
0
решение ниже в комментарии
Автор ответа:
0
program HelloWorld;
var
n, i : integer;
b : boolean;
begin
i:=0;
b:=false;
read(n);
while b=false do
begin
if i*i>n then b:=true else writeln(i);
i:=i+1;
end;
end.
var
n, i : integer;
b : boolean;
begin
i:=0;
b:=false;
read(n);
while b=false do
begin
if i*i>n then b:=true else writeln(i);
i:=i+1;
end;
end.
Автор ответа:
0
-------------------------
Автор ответа:
0
адача номер 4
Автор ответа:
0
------------------------------
Автор ответа:
0
program HelloWorld;
var
n, i, mem0, mem1, mem2 : integer;
begin
i:=0;
mem0:=0;
mem1:=1;
read(n);
writeln(mem0);
writeln(mem1);
while i<=n do
begin
i:=i+1;
mem2:=mem0+mem1;
writeln(mem2);
mem0:=mem1;
mem1:=mem2;
end;
end.
var
n, i, mem0, mem1, mem2 : integer;
begin
i:=0;
mem0:=0;
mem1:=1;
read(n);
writeln(mem0);
writeln(mem1);
while i<=n do
begin
i:=i+1;
mem2:=mem0+mem1;
writeln(mem2);
mem0:=mem1;
mem1:=mem2;
end;
end.
Интересные вопросы
Предмет: Математика,
автор: artem4ik902902
Предмет: Русский язык,
автор: marssmeii228
Предмет: Математика,
автор: AndrewKarabiner
Предмет: Литература,
автор: slipskaya85
Предмет: Математика,
автор: Данэлия