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

Дачник вася решил вымостить свою садовую дорожку плиткой, плитки у васи двух типов 40 на 20 см и 60 на 20 см. дорожка прямая и узенькая- ровно в одну плитку шириной 20 см. класть плитку поперек дорожки вася не может, чтобы не повредить посадки. вася измерил длину дорожки. она оказалась ровно n см. васе понять, сможет ли он уложить плитку в точности по всей длине дорожки, не прибегая к разрезанию плитки. (плитки укладываются без шва.)

👇
Ответ:
dasha50052
dasha50052
21.09.2022
Var n,i,k:integer;
begin
readln(n);
k:=0;
for i:=0 to n div 40 do
 if (n-i*40) mod 60 = 0 then k:=1;
if k=1 then writeln('YES')
else writeln('NO');
end.

Пример:
180
YES
4,7(68 оценок)
Открыть все ответы
Ответ:
lisa22151
lisa22151
21.09.2022

program AndryshaHomenko;

type mas = array of array of integer;

var a: mas;

   n, i, j, summa, k: integer;

begin

write('Дан двумерный массив a, размером (n´n)(или квадратная матрица а).');

writeln('Найти среднее арифметическое положительных элементов еѐ побочной диагонали.');

writeln;

writeln('Введите размерность массива: ');

readln(n);

setlength(a, n, n);

summa := 0;

k := 0;

randomize;

for i := 0 to n - 1do

 for j := 0 to n - 1 do

 begin

  a[i, j] := random(201) - 100;

  write(a[i, j], '; ');

  if (j = n - 1) then writeln;

  if ((j = n - i - 1) and (a[i, j] > 0)) then

  begin

   summa := summa + a[i, j];

   k := k + 1;

  end;

 end;

writeln('Среднее арифметическое положительных элементов побочной диагонали массива равно ', summa / k : 0 : 2);

readln;

end.

4,8(38 оценок)
Ответ:
tany19821
tany19821
21.09.2022
Паскаль
---
uses crt;
var a: array[1..100,1..100] of integer;
    x,y,sum,k,n:integer;
begin
     write('Введите n: ');
     readln(n);
     clrscr;
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     k:=0;
     Sum:=0;
     for x:=1 to n do
         for y:=x+1 to n do
             if a[x,y]>0 then begin
                Sum:=Sum+a[x,y];
                inc(k);
             end;
     writeln;
     if k<>0 then write(sum/k:4:2);
end.
4,6(19 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ