Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться
3 кбайт = 3*1024*8=24576 бит
1 мбайт = 1*1024*1024*8=8388608 бит
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('Количество пятерок в числе равно ',
ReadInteger('n=').ToString.Where(c->c='5').Count)
end.
<u><em>Тестовое решение:</em></u>
n= 3456453
Количество пятерок в числе равно 2
Var f:text ;
c:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
writeln ('Введите ',i,' число');
read(c[i]);
end;
assign (f,'res.txt');
rewrite(f);
for i:=1 to 10 do
write (f,' ',c[i]);
close (f);
end.
Писал на Pascal ABC. Для того, чтобы работала, тебе нужно создать папку, и в этой папке сохранить данную программу. После запуска, тебе нужно будет ввести 10 чисел. Результат сохранится в той папке, в которой будет сохранена программа !
Var S, P, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
writeln('S = ', S, 'P = ', P);
end.