1)Алгоритм решения задачи: <span>Программа должна запрашивать у пользователя следующую информацию:диаметр бака;высота бака;расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.<span>Площадь крыши бака (круга) вычисляется по формуле <span>p * d2 /4</span> (где p – число пи, d - диаметр).
Площадь боковой поверхности цилиндра: p * d * h (где h – высота).
</span></span><span>Программа на языке Паскаль:
<span>const pi = 3.14;
var
d, h, b: real;
top, wall, q: real;
q_int: integer;
begin
write('Диаметр: ');
readln(d);
write('Высота: ');
readln(h);
write('Окрашиваемая площадь одной банкой: ');
readln(b);
top := pi * sqr(d) / 4.0;
wall := pi * d * h;
q := (top + wall) / b;
q_int := trunc(q) + 1;
write('Количество банок: ', q_int);
readln
end.
</span></span>
#include <iostream>
#include <cmath>
using namespace std;
int main() {
int n;
cin >> n;
int s = int(n / 100), e = n % 10;
int d= int(n / 10) % 10;
cout << "Искомый остаток равен " << (s * d * e) % (s + d + e) << "\n";
cout << s << e << d << "\n";
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var K := ArrRandom(9, -50, 50);
K.Println;
K.Transform(t -> t * t);
K.Println
end.
<h3>22 -21 36 42 -2 37 42 29 49</h3><h3>484 441 1296 1764 4 1369 1764 841 2401</h3>
Vинф.=вес одной точки*кол-во точек; N(мощность алфавита)=колво цветов в степени i; где i это вес одной точки. N1=1024; i1=10; N2=32; i2=5;
V1/V2=10\5=2/1. Ответ: в 2 раза
Var N,i:integer; s:real;beginwriteln('vvedite N');readln(N);s:=1;for i:=2 to N dos:=s-1/i;writeln('Summa = ',s);end.