Алгоритми

program zxili jisla;

uses crt;
var a,b,s:word;
BEGIN
a:=5; b:8; s:=a*b;
Writeln('площа =',s,'кв.см.');




END.

rogram yablyka;
var a,b,c:real;
uses crt;
BEGIN
write('vestu vagu yabluk');
read(a)
writeln('vvestu vagu yabluk');
read(b)
c:(a,b);write(vartist=;c)

END.

program ufy;

uses crt;
var d,n,dn:byte;
BEGIN
write('20->');read(dn)
d:=dn mod 7; n:=dn div 7;
writeln(dn,'20',(n,'2',d,'20');
END.

program jisla;

uses crt;
var a,b,s:word;
BEGIN
a:6; s=a*A;
writeln('ploha=',s,'kv.cm.');

END.

program jisla;

uses crt;
var a,b,s:word;
BEGIN
a:=5; b:=8; s:=a*b;
writeln('ïëîùà = ',s,'êâ.ñì.');

END.

program priklad;

uses crt;
var skr,skv,a,r:real;
BEGIN
write('skr=');read(skr);
write('skv=');read(skv);
r:=sqrt(skr/pi);a:=sqrt(skv);
if r>a then writeln('radiys') else writeln('storona');


END.



Дано два різних дійсних числа. Знайдіть найбільше.
program p67;

uses crt;
var x,c1,c2,c3,p:integer;
BEGIN
read(x);
c1:=x mod 100;
c2:=x div 10 mod 10;
c3:=x div 10;
p:=c1*c2*c3;
if x mod p=0 then writeln('yes') else writeln('no');

має вийти 120-no,110-yes:



Дано ціле трьохзначне число. Визначте, чи однакові його перша та остання цифри.



program p000;

uses crt;
var n,a,b,c:integer;
BEGIN
readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
c:=n;
n:=100*a+10*b+c;
writeln(n)
END.


Дано чотирьохзначне число. Визначте, чи дорівнює сума двох перших його цифр сумі двох його останніх цифр.
program p098;

uses crt;
var n:word;a,b:byte;
BEGIN
readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
a:=10*a+b;
writeln(n=a)





END.


program prg56;

uses crt;
var i,n:word;
BEGIN
readln(n);
for i :=1 to n do begin
writeln (i,' ')
end;
END.


program lift;

uses crt;
const hl=8;
dv=10;
d=87;
g=75;
max=500;
var x,a,b,c,p:integer;
BEGIN
writeln('vedit kilkist hl');
read(x);
x:=x*hl;
if x<=max then writeln ('yes') else  writeln('no');
writeln('vedit cilcist dl');
read(a);
a:=a*dv;
if a<=max then writeln('yes') else writeln('no');
writeln('vedit cilcist d');
read(b);
b:=b*d;
if b<=max then writeln('yes')else writeln('no');
writeln('vedit cilcist g');
read(c);
c:=c*g;
if c<=max then writeln ('yes') else writeln('no');
END.

Складіть програму обчислення суми цифр цілого двохзначного числа. Екран повинен мати вигляд:
Введіть двохзначне число: 34

program p13;

uses crt;
var a:integer;
BEGIN
a:=6 div 5;
writeln(a);
a:=148 mod 40;
writeln(a);


END.
Складіть програму обчислення добутку другої та третьої цифр цілого чотирьохзначного числа. Екран повинен мати вигляд:
Введіть чотирьохзначне число: 3456

program p34;

uses crt;
var a,b,c,d,f:integer;
BEGIN
writeln('vedit chislo a:');read(a);
b:=a div 1000;
writeln(b);
c:=a div 100 mod 10;
writeln(c);
f:=a+c;
writeln(f);
має вийти 4х5=20


END.         має вийти:4x5=20

Складіть програму обчислення добутку цифр цілого чотирьохзначного числа. Екран повинен мати вигляд:
Введіть чотирьохзначне число: 3545
program p27;

uses crt;
var n,c1,c2,c3,p:integer;
BEGIN
write('3456');read(n);
c1:=n div 100;c2:=n div 10 mod 10;c3:=n mod 10;
writeln(c1,'*',c3,'=',p);
p:=c1*c2*c3;
writeln(c1,'*',c3,'=',p);
END.

має вийти 3х5х4х5=300
Складіть програму обчислення суми цифр цілого трьохзначного числа.
uses crt;
var a,b,c,d,f:
BEGIN
writeln('vvedit jhislo:');read(n);
b:=n div 100;
writeln(b);
c:=n div 10 mod 10;
writeln(c);

END.
має вийти 3.
Складіть програму обчислення суми цифр цілого трьохзначного числа. Екран повинен мати вигляд:
Введіть трьохзначне число: 345
program p27;

uses crt;
var n,c1,c2,c3,p:integer;
BEGIN
write('3456');read(n);
c1:=n div 100;c2:=n div 10 mod 10;c3:=n mod 10;
writeln(c1,'*',c3,'=',p);
p:=c1*c2*c3;
writeln(c1,'*',c3,'=',p);
END.

має вийти 3+4+5=12
Складіть програму обчислення суми квадратів цифр цілого трьохзначного числа. Екран повинен мати вигляд:
Введіть трьохзначне число: 345
9+16+25=50

program galai;

uses crt;
var a,b,c,f:integer;
BEGIN
writeln('vedit chilo a :');read(a);
writeln(b);
b:=a mod 100;c:=a div 10 mod 10;f:=a div 10;
f:=b+c+a;
writeln('a','+','b','+','c','=',f);
END.

має вийти 9+16+25=50



Const a=2; b=10;
 var x:boolean;
begin
  x:=a < b;
  Writeln(x);
end.



Const a=TRUE;    b=FALSE;
Begin
 writeln(b > a);
end.



 Const X=-2; y=2;
 Var Z:Boolean;
Begin
Z:=sqr(x)-sqr(y)=0; writeln(z);
end.





 Const F=7; D=5;
 Var Z:Boolean;
Begin
 Z:=1/F > 1/D;
 writeln(z);
end.