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

Представить программу рисования фигур, показанных на рисунке с камманд pygame. draw. ​

Показать ответ
Ответ:
Neу4
Neу4
07.02.2023 19:52
Решение:

#include <stdio.h>

#include <math.h>

#include <locale.h>


int main()

{

setlocale(LC_ALL, "rus");

int i, god, obl1, obl2, z, itog;

obl1 = 100000;

obl2 = 200000;

printf("Введите сколько лет происходит модернизация:\n");

scanf_s("%i", &god);

for (i = 1; i < god; i++)

{

 if (obl2 > obl1)

 {

  z = obl1 + obl2;

  obl1 = z;

 }

 else

 {

  z = obl1 + obl2;

  obl2 = z;

 }

 itog = obl1 + obl2;

}

if (obl2 > obl1)

{

 printf("Наибольший доход у второй области: %2d сентиннеалей\n", obl2);

}

else

{

 printf("Наибольший доход у первой области: %2d сентиннеалей\n", obl1);

}

printf("Общий доход за %2d лет : %2d сентиннеалей\n", god, itog);

getchar(); getchar();

}

Прикрепил пару тестов и саму программу, если интересно



Построив множество предприятий, проведя образовательную, технологическую и культурную реформы, вы пр
Построив множество предприятий, проведя образовательную, технологическую и культурную реформы, вы пр
Построив множество предприятий, проведя образовательную, технологическую и культурную реформы, вы пр
0,0(0 оценок)
Ответ:
katiaefimova
katiaefimova
12.06.2021 19:54

var b: array of real;

i,n,ll: integer;

max,min,a: real;

begin

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

readln(n);

write('Введите число a: ');

readln(a);

setlength(b,n);

writeln('Массив B: ');

for i:=0 to n-1 do

begin

b[i]:=random(3*n);

write(b[i],' ');

end;

writeln;

min:=b[0];

max:=a;

for i:=0 to n-1 do

if min>b[i] then min:=b[i]

else if max<b[i] then begin

max:=b[i];

ll:=i;

end;

writeln('Наименьший элемент массива - ',min);

writeln('Элемент, больший числа ',a,' - ',max,' - находится в ',ll+1,' месте');

end.


Можете вместо real типа данных использовать также и integer. Просто неизвестно какие данные будут использоваться во время проверки

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