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

Задание
Напишите надписи СГУ.

Используя координатную плоскость для изображения аббревиатуры, последовательность действий пропишите с записи алгоритмов «Текстовый» (словесный).

II. Задание
По заданной блок-схеме рис.1 выполнить действия алгоритма для числа ??, заданное число соответствует первой (заглавной) букве в Вашей фамилии. (Таблица 1), запишите последовательный алгоритм действий.

Рис.1 Блок-схема к примеру

Таблица 1

III. Задание
По заданному алгоритму «Псевдокод» укажите число - начального значения переменной X данного алгоритма, если переменная Y в конце программы приняла значение равное 5.

В результате работы фрагмента алгоритма:

Y:=X-5

X:=2*(Y+1)

Y:=X+Y

вывод (Y)

IV. Задание
Ниже приведена программа, записанная на языке программирования «Паскаль».

var s,k: integer;

begin

readln(s);

readln(t);

if (s < 1) and (t < 2)

then

writeln ('YES')

else

writeln ('NO')

end.

Было выведено 9 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t):

(3, 5); (4, 3); (4, −5); (0, 7); (0, −2); (−2, 1); (−2, 5); (−2, −4); (1, 2).

Сколько было запусков, при которых программа напечатала «YES»?

Отправка работы

Показать ответ
Ответ:
Ram543
Ram543
29.11.2020 05:53

var

 n,k:integer;

 a:array of integer;

 s,k2:real;

begin

 

 {Ввод размера массива и элементов массива}

 while n<3 do begin

   write('Введите размер массива - '); readln(n);

   if n<3 then writeln('[Массив слишком короткий]');

 end;

 setLength(a,n);

 for var i1:=0 to n-1 do begin

   write('Введите ',i1+1,' элемент массива - '); readln(a[i1]);

 end;

 

 {Вычесление минимальной суммы трёх соседних элементов массива}

 s:=a[0]+a[1]+a[2];

 for var i2:=2 to n-2 do begin

   k:=a[i2-1]+a[i2]+a[i2+1];

   if s>k then s:=k;

 end;

 writeln('Минимальная сумма трёх соседних элементов = ',s);

 

 {Выполнение условия чётности и нечётности}

 k2:=s;

 while k2>=2 do begin

   k2:=k2-2;

 end;

 if k2=0 then s:=sqr(s)

 else s:=sqrt(s);

 write('ответ: ',s:0:3);

 

end.

0,0(0 оценок)
Ответ:
leradolgolenko
leradolgolenko
08.11.2021 09:14

#include <iostream>

#include <string>

#define N 5

using namespace std;

int count_flat = 0;

struct Flat {

int n_rooms;

int square;

int floor;

string address;

double price;

void PrintInfo() {

 cout << "\nКоличество комнат: " << n_rooms << "\nПлощадь " << square << "\nЭтаж:" << floor << "\nАдрес " << address << "\nЦена: " << price;

}

void InputInfo() {

 cout << "Количество комнат: ";

 cin >> n_rooms;

 cout << "Площадь: ";

 cin >> square;

 cout << "Этаж: ";

 cin >> floor;

 cout << "Адрес: ";

 getline(cin, address);

 cout << "Цена: ";

 cin >> price;

}

void PrintChecksInfo(int number) {

 

 if (number >= price) {

  count_flat++;

  PrintInfo();

 }

}

};

signed main() {

setlocale(LC_ALL, "Rus");

int choice;

Flat mas[N];

for (int i = 0; i < N; i++)

 mas[i].InputInfo();

cout << "Введите стоимость: ";

cin >> choice;

for (int i = 0; i < N; i++) {

 mas[i].PrintChecksInfo(choice);

}

if (count_flat <= 0)

 cout << "Таких квартир нет!";

return 0;

}

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