Uses crt;
const N=20;
var
i,A,x: integer;
arr: array [1..N] of integer;
begin
clrscr;
x:=0;
write ('A=');
readln (A);
writeln ('Array: ');f
or i:=1 to N do
begin
arr[i]:=random(41)-20;
write (arr[i],' ');
end;
for i:=1 to N do
begin
if (arr[i]>=0) and (arr[i]<=A) then
x:=x+1;
end;
writeln ();
writeln ('Answer: ',x);
readln ();
<span>end.</span>

0 0

4 года назад

Составьте программу нахождения количество цифр натурального числа n.

PolinaDvv

Var n,k : Integer;
Begin
k:=0;
Readln(n);
While n>0 do
Begin
n:=n div 10;
Inc(k);
end;
Writeln('Цфир: ',k);
end.

0 0

4 года назад

Дано трёхзначное число. Напишите в паскаль программу, которая определяет: Является ли число "перевёртышем", т.е. числом, десятич

parfilovv

Var
a:integer;
begin
writeln('a ?');
readln(a);
if (a mod 10)=(a div 100) then
writeln('Yes')
else
writeln('N');
end.

0 0

4 года назад