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

іть в пайтоні ів Задання 1. Створіть програму на вході маємо два списки і ціле число, якщо введене число менше 0, то до першого списку додається другий, інакше до другого перший. 

Алгоритм роботи.

Створіть список а (значення користувач вводить сам, використовуйте структуру a = [int(i) for i in input().split()])

Створіть список b.

Створіть змінну, яку користувач також буде вводити сам (int(input(«Введіть ціле число для умови: »)))

Перевірте чи введене число менше 0. Якщо умова виконується до першого списку додати другий, інакше навпаки.

if value < 0:

    print("Результат:", a + b)

else:

    print("Результат:", b + a)

Збережіть програму та перевірте правильність її виконання.

Задання 2. Cтворіть проект Магазин одягу. Згідно умови, у магазині одягу є гнучка система зміни цін. Кожного тижня товар змінював свою ціну згідно таблиці.

Створіть проект, у якому за введеною вартістю товару можна обчислити значення ціни товару протягом кожного тижня та вивести її на екран у вигляді таблиці (списку) значень. Зверніть увагу, щоб знайти результат збільшення ціни price на 1%, виконують дію price*1.01; щоб зменшити на 1%, виконують дію price*0.99.

Завдання 3. Створити проект, у якому є 1 кнопка, 1 багаторядкове поле введення інформації та 1 напис. Ім'я користувача вводиться у текстове поле. При клацанні кнопки даний текст заноситься у напис на формі.

Завдання 4. Знайти суму додатних елементів одновимірного масиву (таблиці) всі елементи якого є цілими числами. ​

👇
Открыть все ответы
Ответ:
саша4277
саша4277
15.02.2021
Var St: string;
 z:string[10];
 x:string[2];
i,j,k,m: integer;           //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0;                       //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
 begin;
  for m:=1 to 10 do
   if St[j]=z[m] then inc(k);
 end;
if k=0 then
begin;
 writeln('в тексте нет цифр');
 exit;
end;                              //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.
4,7(75 оценок)
Ответ:
ваня1259
ваня1259
15.02.2021

1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.

var

 i: integer;

 s: string;


begin

 i := 1;

 while i <= 5 do

 begin

   readln(s);

   if s = 'zn4n1j4' then

   begin

     writeln('Вход в систему разрешен');

     exit;

   end;

   writeln('Неверный пароль.');

 end;

 writeln('Пароль не был угадан 5 раз.');

end.


2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.

var

 x, ans: integer;


begin

 read(x);

 ans := 0;

 while x <> 0 do

 begin

   ans := ans + (x mod 10);

   x := x div 10;

 end;

 writeln(ans);

end.

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