Задать вопрос!

Задать вопрос!

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

Татьяна Томичка

4 года назад

10

Найдите ошибки:

обведите изображения,размещенные не там,где нужно

Информатика

1 ответ:

Рядская [17]4 года назад

0 0

На 1 монитор на 2 сканер.

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

Как на ваш взгляд может выглядеть будущее, в котором используются новые технологии?

Никитос1986 [7]

Мое мнение: Технология будет улучшатся,а тем временем будут погибать люди.Скоро вместо людей будут роботы,которые будут владет нашей планетой.За год из за технологии погибает 3 миллиона человека,это не так мало как мы думаем,ведь у каждого из них была возможность жить,но всё не так.Наше будущее-в наших руках.

0 0

2 года назад

Помогите пожалуйста Идёт k-я секунда суток. Разработать программу, которая по введённой 5-й секунде суток определяет, сколько це

kelc049

Program ex;
var k,h,m: integer;
begin
write('Введите k: ');
readln(k);
h:=k div 3600;
m:=(k - h)div 60;
write('It is ',h,' hours ',m,' minutes');
end.

0 0

4 года назад

Царевна-лягушка съедает ежедневно на 20% комаров больше, чем в предыдущий день, и еще 2 комара. Через сколько дней количество съ

healthlove

var d:integer;

k:real;

begin

d:=1;

k:=12;

while k<=30 do

begin

d:=d+1;

k:=int(k*1.2)+2

end;

writeln(d)

end.

0 0

4 года назад

Заполните таблицу "Начертание шрифтов".

ЕгорДАДАДА

1 обычный
2 полужирный
3 курсивный
4 подчёркнутый
5 полужирный и курсивный
6 полужирный и подчёркнутый
7 подчёркнутый и курсивный
8 полужирный и подчёркнутый и курсивный

0 0

4 года назад

Задан одномерный массив из н чисел сосчитать количество элементов массива положительных отрицательных и нулевых

vivatbv

Const N = 10;
var
mas: array [1..N] of integer;
i,x,y,z:integer;
begin
for i:=1 to 10 do
read(mas[i]);
x:=0;
y:=0;
z:=0;
for i:=1 to 10 do begin
if mas[i]>0 then
x:=x+1
else if mas[i]<0 then
y:=y+1
else
z:=z+1
end;
writeln('Положительных элементов: ',x);
writeln('Отрицательных элементов: ',y);
writeln('Нулевых элементов: ',z);
end.

0 0

4 года назад