Акимцева27
?>

1. Введите в компьютер и отладьте программу Numbers 2 10. Лет педите с ее и десятичную систему счисления слегую двоичные числа: 111110; 1111111; 100000. Проверьте страница пость результатов, 2. Введите в компьютер и программу Numbers 10 2. ведите с ее н двоичную систему счисления следующее десятичные числа: 255; 512: 1023. Проверьте правильность ультратон.

Информатика

Ответы

rusvicktor

1)

Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i:integer;
Begin
clrscr;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);
i:=100; {2 sposob}
while i<=999 do begin
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1;
end;
i:=100; {3 sposob}
repeat
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1
until i=999
end.

2)

Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];
writeln(v);
i:=100; {2 sposob}
v:=0;
while i<=999 do begin
if mas[i] mod 17=0 then v:=v+mas[i];;
i:=i+1;
end;
writeln(v);
i:=100; {3 sposob}
v:=0;
repeat
if mas[i] mod 17=0 then v:=v+mas[i];
i:=i+1
until i=999;
writeln(v);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1. Введите в компьютер и отладьте программу Numbers 2 10. Лет педите с ее и десятичную систему счисления слегую двоичные числа: 111110; 1111111; 100000. Проверьте страница пость результатов, 2. Введите в компьютер и программу Numbers 10 2. ведите с ее н двоичную систему счисления следующее десятичные числа: 255; 512: 1023. Проверьте правильность ультратон.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

byfetvostochniy
Валентинович133
Татьяна902
Voronin-Albertovich
svetarakityanskaya
dkvsadovoe
Акимцева27
tarhan1221
Sergei1805
ПетровичЖивотовская1245
anovikovsr
Gennadievna bessonov
Ofelya1308
ecocheminnov437
ngz55