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

, прокомментировать написанные программы (нужно описать построчно программы): 1)

#include

#include

int main()

{

​ ​ ​ char s[5], passw[]="kuku";

​ ​ ​ int i, k=0;

​ ​ ​ for(i=0; !k && i<3; i++)

​ ​ ​ {

​ ​ ​ ​ ​ ​ printf("\n Vvedite parol:\n");

​ ​ ​ ​ ​ ​ gets(s);

​ ​ ​ ​ ​ ​ if(strstr(s, passw))k=1;

​ ​ ​ }

​ ​ ​ if(k) printf("\n parol prinat");

​ ​ ​ else printf("\n parol ne prinat");

​ ​ ​ system("pause");

​ ​ ​ return 0;

}

2)

#include

#include

void main()

{

char z;

clrscr();

for(z='0';z<='9';z++)

{

if (z=='0' || z=='5') printf("\n");

printf (" %с-%в ",z,z);

}

getch();

}

3)

#include

main()

{

char c;

c=getchar();

while(c!=EOF)

{

putchar(c);

c=getchar();

}

}


, прокомментировать написанные программы (нужно описать построчно программы): 1)#include #include in
, прокомментировать написанные программы (нужно описать построчно программы): 1)#include #include in
, прокомментировать написанные программы (нужно описать построчно программы): 1)#include #include in

Показать ответ
Ответ:
МилаяПолина
МилаяПолина
29.12.2020 02:04

// Программы на писаны на PascalABC.NET

// 7.6:

var

 number: integer;

Begin

 For number := 1000 to 9999 do

   if ((number mod 133 = 125) and (number mod 134 = 111)) then

     WriteLn(number);

End.

// Нашлось одно единственное число: 1987

___________________________

// 7.7

var

 Sum, a, b, c, count: integer;

Begin

 count := 0;

 

 // Число 500 не проверяется, т.к. очевидно, что 5 + 0 + 0 != 15

 For a := 1 to 4 do

    For b := 0 to 9 do

      For c := 0 to 9 do

      begin

        Sum := a + b + c;

       

        if (15 = Sum) then

          count := count + 1;

      end;

 

  WriteLn('Кол-во искомых чисел: ', count);

End.

// Кол-во искомых чисел: 26


Сделайте 7.6, 7,7 блок схемой
Сделайте 7.6, 7,7 блок схемой
0,0(0 оценок)
Ответ:
IvanMalin1
IvanMalin1
03.06.2021 01:14

class Receipt:

   def __init__(self):

       self.number = 1

       self.amount = 0

       self.cost = 0

       self.lines = []

   def add_item(self, item, cost):

       self.amount += 1

       self.lines.append("%s - %s" % (item, str(cost)))

       self.cost += cost

   def new(self):

       self.number += 1

       self.amount = 0

       self.cost = 0

       self.lines = []

   def print(self):

       if self.amount != 0:

           print("Чек %s. Всего предметов: %s" % (self.number, self.amount))

           for line in self.lines:

               print(line)

           print("Итого: %s" % self.cost)

           print("")

           self.new()

       

r = Receipt()

def add_item(item, cost, receipt = r):

   receipt.add_item(item, cost)

def print_receipt(receipt = r):

   r.print()

add_item('Блокнот', 100)

print_receipt()

add_item('Ручка', 70)

print_receipt()

print_receipt()

add_item('Булочка', 15)

add_item('Булочка', 15)

add_item('Чай', 5)

print_receipt()

add_item('Булочка', 15)

add_item('Булочка', 15)

# (Отменить чек) - этот чек не печатаем

Этот код печатает следующее:

Чек 1. Всего предметов: 1

Блокнот - 100

Итого: 100

Чек 2. Всего предметов: 1

Ручка - 70

Итого: 70

Чек 3. Всего предметов: 3

Булочка - 15

Булочка - 15

Чай - 5

Итого: 35

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