ДашаКаськова
30.10.2021 08:48

1.по алгоритму восстановите формулу для вычисления значения y и запишите на алгоритмическом языке: 1) умножить x на x, обозначить результат r12) умножить r1, на a, обозначить результат r23) сложить r2 с b, обозначить результат r34) разделить r3 на c, считать результат со значением y(с решением)2.представьте в виде построчной записи алгоритм решения следующей мальчик, на улице газеты, срабатывает a руб. на продаже каждой из первых 75 газет. на каждой из остальных проданных газет он зарабатывает по x руб. вычислите заработок мальчика, если он продаст 133 газеты3. по алгоритму восстановите формулу для вычисления значения y и запишите её на алгоритмическом языке: 1) сложить x с 1, обозначить результат а12) разделить 1 на а1, обозначить результат а23) сложить а2 с 1, обозначить результат а34) разделить а3 на 3, считать результат значением y.(с решением)заранее ! )​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
FedorAche
31.01.2022 21:09
А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.
0,0(0 оценок)
Ответ:
KimTaehyeng
27.06.2022 23:43
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=8;
  var a:=new real[n,n];
  var k:=1;
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do begin
      if i.IsEven then a[i,n-1-j]:=k
      else a[i,j]:=k;
      k+=1
      end;
  a.Println(3,0)
end.

Результат
  8  7  6  5  4  3  2  1
  9 10 11 12 13 14 15 16
 24 23 22 21 20 19 18 17
 25 26 27 28 29 30 31 32
 40 39 38 37 36 35 34 33
 41 42 43 44 45 46 47 48
 56 55 54 53 52 51 50 49
 57 58 59 60 61 62 63 64
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота