Составить программу определения ,является ли число Х ,введенное с клавиатуры : 1)не кратным 8 2)x принадлежит (-60;50)

Знания

Информатика

1 ответ:

Толик12 [21]1 год назад

0 0

Если я решил не правильно, напиши в комментарии, что именно я сделал не так.

Читайте также

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ Язык Free Pascal GNU C GNU C++ Delphi Java Python 2.7 Mono C# Python 3.1 Min время, сек 0.001 0.004 0.002

zeci

<span>Паскаль:
Program P;
uses crt;
var n,i:integer;
Begin clrscr;
write(' N='); readln(n);
i:=1;
while i<=n do begin i:=i+1;
if n mod i=0 then
begin
writeln('Наименьший делитель=',i);
end;
end;
end<span>.</span></span>

0 0

4 года назад

Вывести на консоль собственные анкетные данные:Фамилия, имя, возраст, група, курс. Введите произвольные я потом на свои поменяю

мила Легонькова

Не уверен, правильно ли вас понял. Если что, пишите.

0 0

4 года назад

Срочно!!!!!Представьте числа в виде суммы степеней основания.

71region

567(10) = 5*10^2+6*10^1+7*10^0

94.53(10) = 9*10^1+4*10^0+5*10^(-1)+3*10^(-2)

110.101(2) = 1*2^2+1*2^1+0*2^0+1*2^(-1)+0*2^(-2)+1*2^(-3)

11101(2) = 1*2^4+1*2^3+1*2^2+0*2^1+1*2^0

0 0

3 года назад

Уровень C. Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры (не обязательно стоящие

лариса пан [5]

Есть много разных способов решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('В записи введенного числа есть одинаковые цифры')
else writeln('В записи введенного числа нет одинаковых цифр');
end.

Пример:
n=123432
В записи введенного числа есть одинаковые цифры

0 0

5 лет назад

Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 10 элементов, вводим их с клавиату

Игорь Фомин

Var x:array[1..10] of integer;
i,n,s:integer;
begin s:=0;
for i:=1 to n do
read(x[i]);
for i:=1 to n do
if x[i] mod2=1 then s:=s+x[i];
writeln('s=,s);
readln;
readln
end.
Думаю так будет.

0 0

4 года назад