Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
<span>end.
надеюсь что так можно? ;D
</span>
Переведем все числа в степени 8.
Ответ: 3 единицы.
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.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.