Все категории

4 года назад

Помогите сделать информатику,всю страницу.

Знания

Информатика

1 ответ:

tolikkk4 года назад

0 0

4) мышь , клавиатура, монитор
5) мышь , планшет, монитор, клавиатура
6)русские буквы, арабские, римские цифры, + - = ,

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

Пользователь вводит целое положительное число. Вывести на экран символы "*" таким образом: в первой строке количество "*" равно

йцуккенг

Var a, i: integer;

begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>

0 0

3 года назад

Дан массив размерностью 10 вычислить количество отрицательных элементов

Adrik02

var i,min:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do begin
if a[i]<0 then min:= min+1;
end;
writeln('Количество отрицательных элементов:',min);
end.

0 0

4 года назад

Var A, В : Integer; Визначте, чому дорівнює А після виконання операторів: В := 3568; А := В div 10 mod 10;

gebuku [110]

В чём прикол?

Вот:

B = 3568

В переменной A происходит следущее:

1) У переменной B убирается последняя цифра.
B = 356
2) Из переменной B в переменную A записывается последняя цифра той переменной.
A = 6

0 0

4 года назад

Срочноо,пожалуйста,умоляю

Снова и снова

У тебя стр 10 номер 5 я помогк во всех а ставятс 4 бит кроме 2 и 3 я их не понял

0 0

4 года назад

Написать программу в PascalAbc.net Задано натуральное число .напишите программу ,которая для число с нечётным количеством цифр в

Обыкновенный мужчина

var

x, a, k, t, i, d: integer;

begin

readln(x);

a := x; k := 0;

while a > 0 do

begin

k += 1;

a := a div 10;

end;

if k mod 2 = 0 then

write('В числе четное количество цифр')

else

begin

t := 1;

for i:=1 to k div 2 do

t *= 10;

d := x div t mod 10;

write(d);

end

end.

0 0

1 год назад