Электронная тетрадь Шафиковой Яны
понедельник, 27 апреля 2015 г.
Д/З
Program two;
var A,B,C,F:real;
begin
writeln('vvedite 3 chisla');
readln(A,B,C);
if A+B<C then F:=1;
else
F:=0;
writeln ('A=','B=','C=');
readln;
end.
Д|З
№2
Program Hello:
var x,y,f:real;
begin
writeln('vvedite x,y');
readln (x); readln(y);
If x>0,y>0 then
begin
f:=1;
end;
else
begin
f:=0
end;
writeln ('x=','y=','z=');
readln;
end.
Следующие
Предыдущие
Главная страница
Подписаться на:
Сообщения (Atom)