uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
const
n = 10;
var
a:array[1..n] of integer;
i, j:integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(101);
write(a[i], ' ');
end;
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] mod 10 > a[j + 1] mod 10 then
begin
a[j] := a[j] + a[j + 1];
a[j + 1] := a[j] - a[j + 1];
a[j] := a[j] - a[j + 1];
end;
writeln;
writeln('Результат:');
for i := 1 to n do
write(a[i], ' ');
writeln;
end.
У 4 задачи алгоритм такой:
1. Начало
2. Ввод четырех чисел A1, A2, A3, A4.
3. X1 = A1 + A2. X2 = A3 + A4
4. Если X1 > X2, То Вывод Tan(A3), Иначе Вывод Sin(A1)
5. Конец.
Язык ты не написала, так что программу сама пиши.
Можно узнать о своих одноклассниках и немного про каждого написать. Потом написать я очень люблю свой класс он очень хороший. Мне повезло что у меня такой класс