Интересные задачи
Условие задач Решение задач
Задано натуральное число N (N ≤ 2 000 000 000). Сколько различных цифр в его десятичной записи? var n, a,s,k1,k2,k3,k4,k5,k6,k7,k8,k9,k10 : longint ;
begin
write('введите n ') ;
read(n);
k1:=0; k2:=0; k3:=0; k4:=0; k5:=0; k6:=0;
k7:=0; k8:=0; k9:=0; k10:=0;
while n>0 do begin
a:= n mod 10;
n:= n div 10; write(' n=',n:4 );
if a=0 then k1:=1;
if a=1 then k2:=1;
if a=2 then k3:=1;
if a=3 then k4:=1;
if a=4 then k5:=1;
if a=5 then k6:=1;
if a=6 then k7:=1;
if a=7 then k8:=1;
if a=8 then k9:=1;
if a=9 then k10:=1; end;
s:=k1+k2+k3+k4+k5+k6+k7+k8+k9+k10;
write(s:4 );
end.
Задано предложение, слова которого разделены одним пробелом, в конце предложения - точка. Других знаков препинания в предложении нет. Определить количество слов, количество символов в которых - число простое. (Простое число – это число, которое делится только на 1 и само на себя. Число 1 - не является простым.) program tas;
var s1:string; b:array [0..100] of integer;
it, k, s, m, lim,i:integer; f:Boolean;
begin
writeln('vvedi predlogenie');
readln(s1);
i:=length(s1); k:=0; s:=0;
for m:=1 to i do
if (s1[m]=' ') or (s1[m]='.') then begin k:=k+1; s:=0; end
else begin s:=s+1; b[k]:=s;
end ;
for m:=0 to k-1 do begin
f:=true;
if (b[m]>2) then
begin
lim:=b[m] div 2; it:=2;
while (it<=lim) do begin
if (b[m] mod it=0) then f:=false;
it:=it+1
end ; writeln(' f=',f:2);
if f=true then s:=s+1;
end; end;
writeln(' slov prostie=',s:2);
end.
Задан целочисленный одномерный массив, состоящий из N элементов. Все элементы повторяются в массиве четное количество раз и только один элемент – нечетное. Необходимо определить этот элемент. ( N ≤ 1 000, 0 ≤ a[i] ≤ 65 000) program Primer5_4;
var A: array[1..15] of integer;
n, i,s,b,j,k : integer ;
begin
write('введите n ') ;
read(n);
for i := 1 to n do read(a[i]);
for i :=1 to n-1 do begin
s:=0; b:=a[i]; j:=1;
while (j<=n) do begin
if A[j]=b then s:=s+1;
j:=j+1;
end;
if s mod 2=1 then k:= a[i] end;
writeln(' element=',k);
end.
Отражение и преломления луча на границе двух сред. program test;
uses graphABC,crt;
Var m, p, y: integer; y3, t, a, b, e, v, k, n, z:real;
begin
SetWindowSize(500,300);
SetBrushColor(cllightgray);
Rectangle(20,150,480,280);
Write('введите угол в радианах:');
Line(20,150,480,150);
Setpencolor(clGreen);
Line(250,280,250,20);
Read(a);
t:=sin(a);
b:=t*260;
y3:=150-b;
y:=Trunc(y3);
Setpencolor(clRed);
Line(20,y,250,150);
Line(480,y,250,150);
Write('введите коэффициент преломления:');
Read(n);
e:=90-a;
v:=sin(e);
k:=v/n;
z:=k*130;
p:=Trunc(z);
m:=p+250;
SetPenColor(clYellow);
Line(250,150,m,280);
end.


На главную