Var
x,i,y:integer;
begin
for i:=1 to 1000 do
begin
x:= i mod 7;
if x=0 then
begin
y:=y+1;
writeln (i);//строка выводит все числа кратные семи. она подлежит удалению
end;
end;
writeln (y);
end.
Я так понял у вас такое выражение
125(8) + 11101(2) * A2(16) - 141(8)
в скобках нужно указывать систему счисления.
переведу всё в десятичную и посчитаю
125(8)=85(10)
11101(2)=29(10)
A2(16) = 162(10)
141(8)=97(10)
Получается
85 + 29 * 162 - 97 = 4686(10) = 124E(16) = 11116(8) = 1001001001110(2)
Program n1;
const n=8;
var a: array [1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
end;
writeln('эл. с чет номерами: ');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.
(алгоритм смотрите ниже)Программа:
Program popcorn;
var y,a,b : real;
begin
write ('ввести два разных числа ');
read(a,b);
if (a>b) then begin y:=a*a-b*b*b;write('разница квадрата большего и куба меньшего числа =',y);end else begin y:=b*b-а*а*а;write('разница квадрата большего и куба меньшего числа =',y);end;
end.
Алгоритм:
1)ввести два разных числа
2)найти большее число
3)написать формулу разности квадрата большего и куба меньшего числа.
<span>Сайт в компьютерной сети,все порталы выполняют функции поиска, а также предоставляют интернет-сервисы, например: электронная почта, лента новостей и т. д.
</span>