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

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

👇
Ответ:
Vlab36534
Vlab36534
30.09.2022
Петр - фехтование, Омск, четверг
Сергей - Плавание, Самара, среда
Илья - борьба,Хабаровск, четверг
Олег - Теннис,Москва,суббота
4,7(96 оценок)
Открыть все ответы
Ответ:
Сашенька228
Сашенька228
30.09.2022
Program yeah;const N=15;const M=15;var A:array [1..N,1..M] of integer;i,j,b,c,x,y:integer;beginrandomize;write('матрица: ');writeln;for i:=1 to N do begin   for j:=1 to M do beginA[i,j]:=random(100);write(A[i,j]:3);end;writeln;end;c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[1,c];end;end;x:=x+b;c:=c+1;end;writeln('сумма первой строчки: ',x);c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[15,c];end;end;y:=y+b;c:=c+1;end;writeln('сумма последней строчки: ',y);x:=x+y;writeln('общая сумма: ',x);end.
4,7(1 оценок)
Ответ:
vasilevaka12
vasilevaka12
30.09.2022
Program  Ilgiz98;
var
  i: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Программа находит 4-значные числа, которые делятся на 27');
  writeln('Список таких чисел:');
  for i:=1000 to 9999 do
    if (i mod 27)=0 then writeln(i);
end.

Program  Ilgiz98;
var
  mass: array [1..20] of integer;
  i, k, n: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5');
  write('Введите число N ');  readln (n);
  writeln('*** Вычисляю... ***');
  k:=0;
  writeln('Массив чисел:');
  for i:=1 to 20 do
    begin
     mass[i]:=random(1000)-500;
     writeln(mass[i]);
     if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1;
  end;
  writeln();
  writeln('Всего найдено ',k,' таких чисел');
end.
4,5(59 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ