Program Smoke; uses crt; var Sigarets, Years: real; begin ClrScr; Years:=100; Sigarets:=0 repeat Write('Smoke Sigarets: '); Readln(Sigarets); Years:= Years - Sigarets; until Years = 100; Writeln('Do not begin smoking'); Readln; end.
Комикс Минздрав
Program Smoke; uses crt; var Sigarets, Years: real; begin ClrScr; Years:=100; Sigarets:=0 repeat Write('Smoke Sigarets: '); Readln(Sigarets); Years:= Years - Sigarets; until Years = 100; Writeln('Do not begin smoking'); Readln; end. Комикс Минздрав
Похожие картинки:
Program Smoke; uses crt; var Sigarets, Years: real; begin ClrScr; Years:=100; Sigarets:=0 repeat Write('Smoke Sigarets: '); Readln(Sigarets); Years:= Years - Sigarets; until Years = 100; Writeln('Do not begin smoking'); Readln; end., Комикс Минздрав
Сделать комикс