Технический форум - Показать сообщение отдельно

Spidey-Goblin · 16.12.2013, 00:41

Program karina;
Uses
crt;
Label
lab1;
Var
n : integer;
x : real;
Begin
clrscr;
n:=0;
lab1: write ('Vvedy chislo ');
readln (x);
if x<>22 then
begin
n:=n+1;
goto lab1;
end
else
writeln ('N=', N:6);
Readln;
End.

16.12.2013, 00:41	#6 (permalink)
Spidey-Goblin Member Регистрация: 16.12.2013 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Program karina; Uses crt; Label lab1; Var n : integer; x : real; Begin clrscr; n:=0; lab1: write ('Vvedy chislo '); readln (x); if x<>22 then begin n:=n+1; goto lab1; end else writeln ('N=', N:6); Readln; End.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070