М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Nikaaazhh
Nikaaazhh
12.02.2023 13:54 •  Информатика

1.Укажите соответствие: (запишите в тетрадь, поставь стрелки) Графический редактор наименьший элемент (единица) изображения, отображаемый на экране Растр программа, которая позволяет работать с графическими изображениями, обрабатывать и редактировать их Пиксель изображение, представленное на бумаге, мониторе или экране телевизора в виде набора «точечных» элементов – пикселей

👇
Открыть все ответы
Ответ:
stalina2705
stalina2705
12.02.2023
Вариант с вводом элементов:
Program prog;
uses crt;
var a: array [0..999] of integer;
    i, k, n: integer;
begin
clrscr;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
write('a[',i,'] = ');
readln (a[i]);
end;

for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k = ', k);
end.

Вариант с рандомными элементами:
Program prog;
uses crt;
var a: array [0..999] of integer;
    i, k, n: integer;
begin
clrscr;
randomize;

write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln('a[',i,'] = ',a[i]);
end;

for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k =' , k);
end.
4,8(26 оценок)
Ответ:
Влад5055
Влад5055
12.02.2023
Program prog;
uses crt;
var a,b,c,x,y:real;

begin
clrscr;

write('Ребро параллелепипеда а = ');
readln(a);
write('Ребро параллелепипеда b = ');
readln(b);
write('Ребро параллелепипеда c = ');
readln(c);

writeln;
write('Сторона отверстия х = ');
readln(x);
write('Сторона отверстия y = ');
readln(y);

writeln;
if ((a<x) and (b<y)) or
((a<x) and (c<y)) or
((c<x) and (b<y)) or
((b<x) and (a<y)) or
((c<x) and (a<y)) or
((b<x) and (c<y)) then
writeln('Может пройти') else  writeln('Не может пройти');

end.
4,5(33 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ