Ответ:
procedure recursiveprime(num:integer);
var
i:integer;
begin
{тупая проверка *числа* на простоту - пытаемся поделить на все числа от 2 до *числа*/2)
i:=2;
while i<(num div 2) and (num mod i <> 0) do inc(i)
if i=num div 2 then println(num,"- простое!');
if num<60 then recursiveprime(num+1);
end;
begin
recursiveprime(4);
end.
Объяснение:
ну как-то так.. паскаля под рукой нет, лет 7 назад последний раз трогал дельфи
рекурсивная процедура которая вызывает саму себя со следующим числом если переданое ему число меньше 60
проверка на простоту - пытаемся поделить на все числа от 2 до половины проверяемого числа и проверяем остатки.
надеюсь мысль понятна
Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>
Ответ:
b=1
Объяснение:
Используем команды по порядку
12111
1: 17-b
2: (17-b)/2
3-5: (17-b)/2-b-b-b
В итоге получили 5,значит:
(17-b)/2-b-b-b=5 теперь просто найдем b
8,5-0,5b-b-b-b=5
3,5-3,5b=0
3,5b=3,5⇒b=1
Ответ:b=1
Автозаполнение - функция, позволяющая заполнять ячейки данными на основе шаблона или данных в других ячейках (т.е. однотипными данными).
<u><em>Задача №3</em></u><em><u> </u></em>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100; a3:=a3 div 10;
a4:=a mod 10;
if (a1+a2)=(a3+a4) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №4</em></u><em><u> </u></em>
Var a,a1,a2,a3:integer;
Begin
Readln(a)
;a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
if (a1=a2) and (a2=a3) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №5</em></u><u><em> </em></u>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
sqr(a);
if (a>=100) and (a<=999) then begin
a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
end;
if (a>=1000) and (a<=9999) then begin
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100;
a3:=a3 div 10;
a4:=a mod 10;
end;
if (a1=3) or (a2=3) or (a3=3) or (a4=3) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено');
<span>End.</span>