1. Автоморфными называются числа, которые содержатся в последних разрядах их квадрата, например: 52 = 25
62 = 36
Напишите программу для нахождения 10 первых автоморфных чисел. На экран программа должна выводить, как само автоморфное число, так и его квадрат.
2. Парными простыми числами называются два простых числа, разность которых равна двум, например: 3 5; 5 7. Напишите программу нахождения первых 15 таких пар.
Желательно использовать break и continue.
Нужно сделать 2 задани на языке C, если что мы вот такие темы - break и continue, Оператор повтора for, while и do-while, switch,if-else.
const
n=5;
type
Matrix=array[1..n,1..n] of integer;
procedure DummySchool(var a:Matrix);
begin
Writeln('Ввод элементов матрицы');
for var i:=1 to n do begin
Write(n,' элементов строки ',i,': ');
for var j:=1 to n do Read(a[i,j]);
end;
Writeln('Сформирована матрица ',n,'x',n);
for var i:=1 to n do begin
for var j:=1 to n do Write(a[i,j]:5);
Writeln
end
end;
begin
var B:Matrix;
DummySchool(B);
var sn:=0;
var sp:=0;
for var i:=1 to n do
for var j:=1 to n do
if B[i,j]<0 then sn+=B[i,j]
else
if B[i,j]>0 then sp+=B[i,j];
Writeln('Сумма отрицательных ',sn);
Writeln('Сумма положительных ',sp)
end.
Тестовое решение:
Ввод элементов матрицы
5 элементов строки 1: 6 23 -5 13 9
5 элементов строки 2: 42 0 -38 16 37
5 элементов строки 3: -5 -18 3 11 8
5 элементов строки 4: 9 13 -11 0 3
5 элементов строки 5: 19 -17 0 15 5
Сформирована матрица 5x5
6 23 -5 13 9
42 0 -38 16 37
-5 -18 3 11 8
9 13 -11 0 3
19 -17 0 15 5
Сумма отрицательных -94
Сумма положительных 232
Запишу сразу в виде готовой программы:
var
x, a, b, c, d: real;
begin
x := 0.33;
a := Log10(Exp(x + 2));
b := 2 * Pi / Tan(45 * Pi / 180);
c := 3.14 * ArcSin(x);
d := Sqr(Tan(Sqr(x))) + Exp(Cos(x));
Writeln(a);
Writeln(b);
Writeln(c);
Writeln(d);
end.
Здесь в примере b, котангенс 45 -видимо имеется ввиду градусов (и поэтому там умножено на Pi / 180, чтобы перевести в радианы- ведь в Паскале все тригонометрические функции используют радианы). Но, если это имеется ввиду 45 радиан, то этот множитель нужно убрать.
Там же, вместо котангенса используется единица делённая на тангенс (т.к. функции котангенса в Паскале вроде нет).
Ну, можно и выписать оттуда сами выражения отдельно, как просят в задаче (только работать вне программы это всё равно не будет):
a) Log10(Exp(x + 2))
b) 2 * Pi / Tan(45 * Pi / 180)
c) 3.14 * ArcSin(x)
d) Sqr(Tan(Sqr(x))) + Exp(Cos(x))