Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
Уменьшив размер объекта ты уменьшишь кол-во пикселей на сам объект.
Лупа расширяет размер пикселя,увеличивая объект.
2 Мартышки = 10 кг
Мартышка = 5 кг
Мартышка + 1 кг = 3 Капуцины
5+1кг = 3 Капуцины
Капуцина = 2 кг
Капуцина+Мартышка = Гиббон
5+2 = Гиббон
Гиббон = 7 кг
Мартышка + 3 Гиббона = Павиан + Капуцина
5кг+3×7=Павиан + 2 кг
26кг=Павиан + 2 кг
24кг= Павиан.
Отсюда:
Мартышка = 5 кг.
Капуцина = 2 кг.
Гиббон = 7 кг.
Павиан = 24 кг.
Имеешь в виду коды ошибок? Если да то:
1) 404 - Страница не найдена
2) 403 - Соединение с сервером закрыт
3) <span>302 - Ресурс временно перемещен
4) </span>305 - Следует использовать прокси<span>
5) </span>400 - Неверный запрос<span> </span>
Ну... На С++ это будет так:
1) #include <cmath>
...
double m, g, a, result;
...
result = m*g*cos(a);
2) double a, b, c, result;
...
result = (a*b + b*c)/(a*b);
3) #include <cmath>
...
double x, result;
...
result = abs(1 - abs(x));