Составьте таблицу в екселе. в старояпонском календаре был принят шестидесятилетний цикл, состоящий из пяти двенадцилетних подциклов. подциклы обозначались названиями цветов: зеленый, красный, желтый, белый и черный. внутри каждого подцикла года носили название животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обязьяны, курицы, собаки и свиньи. например, 1924 год - год начала очередного цикла- назывался годом зеленой крысы. создайте таблицу, в которой по заданому году(большем 1924) определяется: животное и цвет. используйте функции отбр и остат

👇

Ответ:

shitova20023p02gai

28.11.2022

Вывод цвета - точно также, как вывод животного, только не по модулю 12, а по модулю 5.

const c:array[0..4]of string={'зеленый', 'красный', 'желтый','белый','черный'};
z:array[0..11]of string={'крысы','коровы','тигра','зайца','дракона','змеи','лошади',
'овцы','обезьяны','курицы','собаки','свиньи'};
var n:integer;
begin readln(n); n:=n-1984; writeln(c[n mod 5],' ',z[n mod 12]); readln end.

Вот! Будь проще.. .
А если хочешь, чтобы календарь работал почти всю эру, то вместо 1984 напиши 4.

4,7(71 оценок)

Открыть все ответы

Ответ:

lllgglll

28.11.2022

Const
n = 10;

var
a: array[0..10] of integer;
i, s: integer;

begin

//Заполнение массива сл. числами

for i := 1 to n do
begin
    a[i] := random(201) - 100;
    write(a[i]:4);
end;
writeln;

//1) Все элементы не превышающие число 100

writeln('Не больше 100 ');
for i := 1 to n do
    if a[i] <= 100 then
      write( a[i]:4);
writeln;

// 2) Все четные элементы

writeln('Кратные двум ');
for i := 1 to n do
    if a[i] mod 2 = 0 then
      write( a[i]:4);
writeln;

// 3) Все элементы, являющиеся трехзначными числами

   writeln('Трехзначные ');
for i := 1 to n do
    if (a[i] < -99) or (a[i] > 99) then
      write(a[i]:4);
writeln;

// 4) Третий, шестой и т.д элементы.

i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
    write(a[i]:4);
    i := i + 3;
end;
end.

4,8(27 оценок)

Ответ:

svetlans2

28.11.2022

# -*- coding: utf-8 -*-"""Created on Tue Oct 18 16:38:28 2016 @author: imdunkind""" print("Потерянная карточка")n=int(input("Введите кол-во карточек: "))summaCards=0 # сложим все карточкиsumma_range_i=0 # сумма всех чисел for i in range(1,n+1): summa_range_i+=i # cумма всех N карточек, карточки не повторяются от 1 до N for i in range(1,n): a=int(input("Введите номиналы карточек: ")) summaCards+=a # сумма всех карточек, кроме одной, карточки не повторяются 1 не хватает # summa_range_i-summaCards - разность сумм, узнаем какой карточки нет print("Потерянная карточка - {}".format(summa_range_i-summaCards))

4,4(91 оценок)

Это интересно:

Компьютеры-и-электроника

11.11.2020

Легкий способ - как скопировать музыку с CD в формате MP3...

Компьютеры-и-электроника

17.06.2022

Как установить TortoiseSVN и произвести свои первые изменения в репозитарии...

Компьютеры-и-электроника

19.09.2020

Как распечатать Google Календарь...

Путешествия