1) program ht1;
var v,p,r:real;
begin
p:=3.14;
writeln ('vvedite r');
readln (r);
v:=4/3*p*(r*r*r);
writeln(v);
end.
2) program ht2;
var x,y,r:integer;
begin
writeln('vvedite r);
readln(r);
writeln('vvedite x');
readln (x);
writeln ('vvedite y');
readln (y);
if (x<=r) and (y<=r)
then writeln ('prinadlezhit')
else writeln ('ne prinadlezhit');
end.
3) а в третью я врубиться не могу.
program raf105;
var
s: string;
g: integer;
function glas(s:string): integer;
const
glas_list = 'аяоёуюыиэе';
var
i,j,res:integer;
begin
s:= lowercase(s);
for i:=1 to length(s) do
for j:=1 to length(glas_list) do
if s[i] = glas_list[j]
then res:= res + 1;
glas:= res;
end;
begin
write('Введите строку: ');
readln(s);
g:= glas(s);
writeln('В строке ',g,' глас.');
end.
<h3><u>PascalABC 3.4.2</u></h3>
1. Для борщу треба солити картофель.
(сОлИти-сІль)
2. У берези є сік, але я його не пив.
(берЕзи)
3. Математики люблять складні задачі.
(любОв - лЮблять)
4. Коли виходить новий художній фільм?
(вихОдить-вИход)
5. Я обіцяю - далі все буде добре.
(дОбре-добрО)
Program hhh54;
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=Exp(ln(x)/3);
write (x:0:3);
<span>end.</span>
//PascalABC.NET 3.3.5.1644
var c, d, x, y: real;
begin
c := 2;
d := -2.5;
x := 2;
y := ( ( tan(x)/ln(x) ) + (x/c) ) / abs( d * x );
writeln('При x = ', x, ', y = ', y);
x := 3;
y := ( ( tan(x)/ln(x) ) + (x/c) ) / abs( d * x );
writeln('При x = ', x, ', y = ', y);
end.
