В право. Робот іде лева на право!!
Program Nalog;{Uses crt}{Если надо}varz,x:real;begin
Write('Ввидите число ');Read(x);If x<2500 then Writeln('налог = 0');
beginif (x>=2500) and (x<10000) thenz:=x*0.13;Writeln('Налог=',z);end;Beginif x>=10000 then z:=(x-1300)*0.15;Writeln('Налог=',z);{READLN - Если турбо поскаль или фрии}end;<span>end.
Картинка снизу
Только есть 1 проблемв с последним
</span>
знак называется 'Выделить <u>в</u>се' больше названий нет
//Dev-C++ 5.11(С)
#include <stdio.h>
int main(void)
{int n,i,f;
float sr,ar[100];
scanf("\%d",&n);
i=0;
f=0;
while(i<n)
{scanf("\%d",&ar[i]);
sr=sr+ar[i];
i++;}
sr=sr/n;
i=0;
while(i<n)
{if(ar[i]<sr)f++;
i++;}
printf("\%d",f);
return 0;
}
Пример ввода:
5
1
2
3
4
5
Пример вывода:
2