Program pr;
uses crt;
Var a,k,k1:integer;
Begin
Writeln("Bведите а");
readin(a);
k1:=1;
k:=0
; While (a<>0) and (k1<1000) do
Вegin
if (a<0) and (a mod 2-0) and (abs (a)<-30000)
then k:%3Dk+1;
readln(a); end;
Writeln(k3},k);
readln;
end. 2) Program pr;
uses crt;
Var a,k,k1:integer;
Begin Writeln('Bведите а);
readln(a);
k1:=1
k:=0
While (a<>0) and (k1<1000) do
Begin if (a>0) and (a mod 24>0) and (abs(a)<-30000)
then k:1k+1;
k1:=k1+1
readln(a):
end
Writeln('k='k');
readin;
end
#include<conio.h>
#include<stdio.h>
#include<iostream.h>
float Max(float a,float b)
{
if (a > b) then return a
else return b;
}
float Min(float a,float b)
{
if (a < b) then return a
else return b;
}
int main()
{
float x,y,z,p;
clrscr;
cout<<"Введите 3 числа: ";
cin>>x;
cin>>y;
cin>>z;
if (z < 0) p = Max (x, y)
else p =Min (x, y);
cout<<" \nP равно:"<<p<<"\n";
getch();
return 0;
}
Var d, R, n: real;
Begin
Writeln('Введите длину нити: ');
Read(d);
Writeln('Введите радиус жемчужин: ');
Read(R);
n:= d/R;
n:= int(n);
Writeln('Поместится: ', n, ' жемчужин');
end.