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

Дано целое число k(1< =k< =365).определить каким днем недели (понедельником ) является k-ый день невисокосного года ,в котором 1 января -понедельник

👇
Ответ:
Hhdhcnxh475366
Hhdhcnxh475366
17.08.2021
Pascal

var   k,a : integer;
   begin 
readln (k);
 a := k mod 7;
 case a of 
1 : writeln (k,' Понедельник');
 2 : writeln (k,' Вторник');
 3 : writeln (k,' Среда');
 4 : writeln (k,' Четверг');
 5 : writeln (k,' Птница'); 
6 : writeln (k,' Суббота');
 0 : writeln (k,' Воскресенье');
  end;
end.   
4,6(10 оценок)
Открыть все ответы
Ответ:
Ален4ик179
Ален4ик179
17.08.2021

#1

RawList = [int(input()) for _ in range(int(input('arr len: ')))]

NewList = [i**2 for i in RawList]

print(*NewList)

#2

RawList = [float(input()) for _ in range(int(input('arr len: ')))]

RoundedSum = round(sum(RawList))

print(RoundedSum)

#3

RawList = [int(input()) for _ in range(int(input('arr len: ')))]

print( len( list(filter(lambda p: p < 0, RawList) ) ) )

#4

RawList = [int(input()) for _ in range(int(input('arr len: ')))]

print(*[ abs(i) for i in RawList])

#5 (Я не знаю украинский алфавит, по этому сделаю для английского)

RawList = [input() for i in range(int(input('Arr Len: ')))]

vows = ['a','i','o','u','e'] #Список гласных

print( len( list( filter( lambda p: p in vows, RawList

Объяснение:

4,7(79 оценок)
Ответ:
chastener40
chastener40
17.08.2021

Объяснение:

const nmax=15;

var a:array[1..nmax,1..nmax] of integer;

m,n,i,j,k,x,y:integer;

begin

randomize;

repeat

write('Количество строк до ',nmax,' n=');

readln(n);

until n in [1..nmax];

repeat

write('Количество столбцов до ',nmax,' m=');

readln(m);

until m in [1..nmax];

k:=-1;

for j:=1 to m do

begin

y:=1;

x:=j;

while(x>0) and(y<=n) do

begin

k:=k+1;

a[y,x]:=k;

x:=x-1;

y:=y+1;

end;

end;

for j:=2 to n do

begin

y:=j;

x:=m;

while(x>0)and(y<=n) do

begin

k:=k+1;

a[y,x]:=k;

x:=x-1;

y:=y+1

end;

end;

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j]:4);

writeln

end;

readln

end.

Переведите на Питон, в Паскале давно не работал

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