//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.
Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
Как помочь? фотку прикрепил бы..
Program Kasyanova98_1;
uses crt;
var n,nt,p:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите натуральное число N = ');
readln(n);
nt:=n;
while nt>=10 do
begin
p:=nt;
nt:= nt div 10;
end;
writeln('Cумма первых двух цифр числа ',n,' равна ',(p div 10)+(p mod 10));
writeln('Произведение первых двух цифр числа ',n,' равно ',(p div 10)*(p mod 10));
end.
Program Kasyanova98_2;
uses crt;
var n,nt,sum,kw,temp:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите натуральное число N = ');
readln(n);
nt:=n;
sum:=0;
kw:=1;
while nt>=1 do
begin
temp:=nt mod 10;
sum := sum + temp;
kw:=kw * temp;
nt := nt div 10;
end;
if kw*kw=sum*sum*sum then
writeln('Квадрат произведения цифр числа ',n,' равняется кубу суммы его цифр')
else
writeln('Квадрат произведения цифр числа ',n,' НЕ равняется кубу суммы его цифр');
end.
Program Kasyanova98_3.1;
uses crt;
const n=10;
var
x,y:integer;
begin
writeln('********************************************************');
writeln('* ТАБЛИЦА УМНОЖЕНИЯ *');
writeln('********************************************************');
write('* * ');
for y:=1 to n do
begin
write(y:2);
if y<n then write(' | ')
else writeln(' * ');
end;
writeln('********************************************************');
for x:=1 to n do
begin
write('* ',x:2, ' * ');
for y:=1 to n do
begin
write(x*y:2);
if y<n then write(' | ')
end;
if x*y<100 then writeln(' * ')
else writeln('* ');
if x<10 then writeln('+------------------------------------------------------+')
else writeln('********************************************************');
end;
end.
Program Kasyanova98_3.2;
uses crt;
const n=10;
var
x,y:integer;
begin
writeln('********************************************************');
writeln('* ТАБЛИЦА СЛОЖЕНИЯ *');
writeln('********************************************************');
write('* * ');
for y:=1 to n do
begin
write(y:2);
if y<n then write(' | ')
else writeln(' * ');
end;
writeln('********************************************************');
for x:=1 to n do
begin
write('* ',x:2, ' * ');
for y:=1 to n do
begin
write(x+y:2);
if y<n then write(' | ')
end;
if x+y<100 then writeln(' * ')
else writeln('* ');
if x<10 then writeln('+------------------------------------------------------+')
else writeln('********************************************************');
end;
end.
Program one;
var: a: real;
begin
Writeln ('Введите число');
readln (a);
If a<0 then else a:=a+1 else writeln (a)
end.
Вроде так
