1. D:\SCHOOL\PHYSICS\
2. Е:\GROUP\COURSE\ACADEMY\
FOR15
program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
<span>end.
FOR16
</span><span>program fofgogjoj;
var
<span>i, n: integer;</span>
<span>a, p: real;
</span></span><span>begin
<span>Writeln('Введите число:');</span>
<span>Write(' a = ');</span>
Readln(a);
<span>Writeln('Введите показатель степени (n > 0):');</span>
<span>Write(' N = ');</span>
Readln(N);
<span>Writeln('Все степени числа ', a, ' от 1 до ', n, ':');</span>
<span>p:= 1;</span>
<span>for i:=1 to n do</span>
begin
<span>p:= p*a;</span>
<span>Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
</span><span>end</span>
<span>end.</span></span>
Var s,i:integer;
begin
write('s = ');
readln(s);
for i:=100 to 999 do
if (i div 100 + i div 10 mod 10 + i mod 10 < s)
then write(i,' ');
end.
Пример:
<span>s = 5
100 101 102 103 110 111 112 120 121 130 200 201 202 210 211 220 300 301 310 400 </span>
67 = 1000011 переводит надо делением на 2 столбиком и записывать остаток
#include <iostream>
#include <iomanip> // std::setprecision
int main()
{
unsigned int W,H,K,P;
unsigned long M;
float T;
std::cin >> W >> H >> K >> P >> M >> T;
unsigned int n = (W*H);
std::cout << (n = ((n / K) + !(!(n % K)))) << " ";
std::cout << (n = (n*P)) << std::endl;
std::cout << ((M-n > 0) ? "YES" : "NO") << std::endl;
std::cout << std::setprecision(4) << (float(n) / T) << std::endl;
return 0;
}