Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
1) program z1;
uses crt;
var a,b,c,d,e,f,k,i: integer;
begin
for i:=100 to 999 do begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 100 mod 10;
d:=a+c;
e:=3*c;
if d>e then innc(k);
end;
writeln(k);
end.