Program znanija_com;
uses crt;
var
a,cch,dch,sq,o,c:real;
begin
writeln('Введите число А: ');
read(a);
cch:=Int(a);
dch:=frac(a);
sq:=sqr(a);
o:=frac(a/5);
writeln(cch,' ',dch,' ', sq,' ',o);
end.
последнее даже не понял что там нужно. так что держи без последнего
10 букв. слово: координата
Var a,b,c,x,y:real;
begin
writeln('Введите рёбра кирпича через пробел');
readln(a,b,c);
writeln('Введите размеры дыры');
readln(y,x);
if (a<c) and (b<c) then begin if (a<x)and(b<y) or (a<y) and (b<x) then write('Пройдёт')end
else if (b<a) and ((b<x)and(c<y) or (b<y) and (c<x) ) then write('пройдёт')
else if (a<y) and ((c<x)and(a<y) or (c<y) and (a<x)) then write('пройдёт')
else write ('не пройдёт');
<span>end.</span>
#include <iostream>
using namespace std;
int main(){
int n;
cin>>n;
while (n !=0)
{
if (n%10!=0)
cout<<n%10;
n/=10;
}
}
CLS
S = 0
FOR i =
1 TO 100
S = S +
i
NEXT i
<span>PRINT
"S=", S
</span>