Помогите с информатикой. Паскаль.Написать программу.

+ 0 -

Arminka99

18 дек. 2014 г., 12:04:07 (9 лет назад)

№17
uses crt;
var rost: integer;
begin
clrscr;
readln (rost);
if (rost>=180) then writeln ('Yes')
else writeln ('No');
readln ();
end.
№7
uses crt;
var t: real;
begin
clrscr;
readln (t);
if (t>60) then writeln ('Fire in room!')
else writeln ('Nothing');
readln ();
end.
№11
uses crt;
var x: integer; b: boolean;
begin
clrscr;
readln (x);
if x mod(2)=0 then b:=true
else b:=false;
writeln (b);
readln ();
end.
№12
uses crt;
var x: integer; b: boolean;
begin
clrscr;
readln (x);
if x mod(3)=0 then b:=true
else b:=false;
writeln (b);
readln ();
end.

+ 0 -

Khrus2014

18 дек. 2014 г., 13:21:33 (9 лет назад)

17.
Program 1;
var a:real;
begin
writeln('введите рост ');
readln(a);
if a<180 then writeln('не допущена') else a>=180 then writeln('допущена');
readln;
end.
18.
Program 2;
var a:real;
begin
writeln('введите кол-во часов игры котенка ');
readln(a);
if a<8 then writeln('котенок заболел') else a>=8 then writeln('котенок здоров');
readln;
end.

19.
Program 3;
var a:real;
begin
writeln('введите скорость ');
readln(a);
if a>30 then writeln('Водитель нарушил');
readln;
end.

+ 0 -

KRV

18 дек. 2014 г., 14:46:36 (9 лет назад)

будет

+ 0 -

Физикштейн

18 дек. 2014 г., 15:30:14 (9 лет назад)

а что решать

+ 0 -

Валерия1706

18 дек. 2014 г., 16:58:37 (9 лет назад)

какие знаешь

+ 0 -

MarisZ

18 дек. 2014 г., 17:41:53 (9 лет назад)

Комментарий удален

+ 0 -

Gusewaira2014

18 дек. 2014 г., 20:34:34 (9 лет назад)

если кто то еще знает как решать остальные задачи, напишите плз