В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
arinab01p0c2kd
arinab01p0c2kd
16.10.2020 04:28 •  Информатика

50 !
2. плитки
при проведении ремонта в квартире дизайнер предложил выложить стену узором
из квадратных плиток, повернув их на 45°. длина диагонали квадрата равна 2 дм.
2 дм
стена, которую необходимо покрыть плиткой, имеет размеры пхт дм, при этом
числа ли м – целые чётные. для покрытия такой стены необходимо какое-то количество
целых квадратных плиток, а также несколько треугольных обрезкой плитки. на рисунке
на следующей странице пример покрытия плиткой стены размером 4х6 дм,
при этом было использовано 8 целых квадратных плиток.

Показать ответ
Ответ:
belkabymka
belkabymka
03.01.2022 02:59

// Язык Паскаль 

Program Massiv;

Uses Crt;

const n=10; // Нужно больше сам подставишь нужное число

 

 var a:array[1..n] of integer;

        i,c:integer;

begin

     clrscr;

     write('Введите элементы массива: ');

     c:=0;  

     for i:=1 to n do

        begin  

            readln(a[i]); 

 

            if (a[i] mod 2)=0 then c:=c+1; 

 

        end; 

 

writeln;

write('Исходный массив:');

 for i:=1 to n do write(a[i],'  ');

writeln('Количество чётных элементов: ',c); 

   readkey;

 

end. 

 

 

 

 

 

 

0,0(0 оценок)
Ответ:
Wow01
Wow01
13.12.2022 08:03

 

Вопрос 1.

Какие ключевые слова не используются для записи команды ветвления?

and  

Вопрос 2.

Как выглядит полная форма команды ветвления?

if ... then ... else ...

  Вопрос 3.

Как выглядит сокращённая форма команды ветвления?

if ... then ...

Вопрос 4.

Какая из команд записана неправильно?

  if a:=0 then a>0;

 

Вопрос 5.

Какая из команд записана правильно?

if x=0 and a>0 then b:=0 else b:=x;

Вопрос 6.

Какая из команд записана правильно?

if (x=0) and (a>0) then begin b:=0;c:=x; end else b:=x;

 

Вопрос 7.

Что будет напечатано на экране в результате выполнения данного фрагмента программы

a:=6;

if a mod 2 = 0 then write(a+2) else write(a-2);

 8  

Вопрос 8.

Что будет напечатано на экране в результате выполнения данного фрагмента программы

a:=12;

if a div 2 >= 6 then b:=a mod 5 else b:=a div 3;

write(a-b);

 10

 

Вопрос 9.

Что будет напечатано на экране в результате выполнения данного фрагмента программы

a:=22;

if a*a >= 225 then a:=a mod 6

Write(22-a);

 18

 

Вопрос 10.

Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 9

a:=5; b:=8; c:=11;

if (a>b) ... (b

 4 не знаю - ФРАГМЕНТ ПРОГРАММЫ НЕ ДОПИСАН

 

Вопрос 11.

Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 3

a:=15; b:=7; c:=4;

if (a>b) ... (b

4 не знаю - ФРАГМЕНТ ПРОГРАММЫ НЕ ДОПИСАН

 

Вопрос 12.

Вставьте пропущенную логическую операцию так, чтобы значение переменной z после выполнения заданного фрагмента программы стало равным 5

a:=1; b:=8; c:=6;

if (a<=c) ... (b<=c) then z:=c-a else z:=c-b;

2 or
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота