Как перевести эту программу в While и в Repeat? - Помощь студентам

Gidus · 18.06.2017, 20:17

Program Sanya5;
Var a,b,c: integer;
Begin
c:=0+1;
for b:= 1 to 11
do
begin
readln (a);
if (a>0) and ((a mod 2)=0) then
c:=c+1;
end;
writeln ('Четных чисел - ',c);
end.

type_Oleg · 18.06.2017, 21:40

Код:

 while b<12 do 
   begin

и

Код:

 repeat
// ...
 until b>11;

18.06.2017, 20:17	#1
Gidus Регистрация: 13.06.2017 Сообщений: 5	Как перевести эту программу в While и в Repeat? Program Sanya5; Var a,b,c: integer; Begin c:=0+1; for b:= 1 to 11 do begin readln (a); if (a>0) and ((a mod 2)=0) then c:=c+1; end; writeln ('Четных чисел - ',c); end.

18.06.2017, 21:40	#2
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,504	Код: `while b<12 do begin` и Код: `repeat // ... until b>11;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как перевести эту программу в While и в Repeat?	Gidus	Фриланс	2	18.06.2017 20:33
Как написать вот эту программу в Delphi	valeriy.sabziro	Помощь студентам	3	21.12.2015 15:46
Опять же C++ как сделать эту программу	zyzz159	Помощь студентам	17	26.11.2015 20:54
Как редактировать эту программу?	Roblen	Паскаль, Turbo Pascal, PascalABC.NET	0	21.03.2015 22:43
как изменить эту программу чтобы она заработала?	Анастасия91	Visual C++	6	13.12.2010 08:05