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

Phyton коды сейчас 1)Сделать валютний калькулятор(по курсу НБУ)вводить данные в гривнах выводить в валюте:Доллар США,Евро, Польский злотый,Китайский юань.
2)Пользователь делает депозитный вклад в размере гривен сроком на b лет под 10% годовых (ежегодно размер вклада увеличится на 10%) эти деньги добавляются к сумме вклада, но на них в следующем году не будут начислены проценты. Написать программу, в которой нужно ввести количество гривен и период (в годах) времени, и вывести сумму, которая будет на счету пользователя.
3)Создать программу которая посчитает в а Гб – количество байт, Кб, Мб. Вывести все на экран.
4)Найдите значение функции y=3x6-6x2-7 при заданном значении х. Вывести результат на экран.

Показать ответ
Ответ:
tarasovdanila
tarasovdanila
11.02.2023 14:32

ө мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп

0,0(0 оценок)
Ответ:
natalyakulesch
natalyakulesch
05.08.2021 10:37
 const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; 
i, j, k,n,r,t: integer; 
begin 
Writeln('Введите размер матрицы n');Read(n); 
 for i := 1 to n do begin   
for j := 1 to n do begin   
Read(k);x[i, j] := k;  end;end;   
Writeln('Исходный массив'); 
for i := 1 to n do begin   
for j := 1 to n do begin     
Write(x[i, j]:4);     
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;    
end;   
Writeln;  end; 
Writeln;Writeln('Одномерный массив'); 
for j := 1 to t do     
Write(z[j]:4); 
 end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота