Помогите с задачами по информатики
Помогите решить 3 и 4 задачу.
Программа Паскаль.
Заранее вам благодарен

1

Ответы и объяснения

2014-02-22T13:00:58+04:00
3)
program gt;
var n,p,c:integer;
begin
read(n,p,c);
if(n>=(p+c))then writeln('Да')else writeln('нет');
end.
4)
program gt2;
var v,r,s:integer;
begin
read(v,r,s);
if(s/v<=(100/r))then writeln('yes')else writeln('no');
end.