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

Составте программу на Паскале

👇
Открыть все ответы
Ответ:
Еденарог
Еденарог
20.11.2021

Для определённости, пусть есть мини-таблица, где в ячейках верхней строки- названия этих переменных (x, y, z).

В нижней строке, в ячейки под икс и игрек- вводите числа- значения этих двух переменных, а в ячейку под зет- вводите формулу для вычисления значения этого выражения:

=(1+x)/4/y

Только вместо x и y вводим ссылки на ячейки с этими значениями.

Можно чуть по другому её записать, если хотите:

=(1+x)/(4*y)

После набора формулы вводите её нажатием клавиши Enter, и в этой ячейке вычислится и отобразится значение зет.

Уточнение: в формуле вместо букв x и y надо вставлять ссылки на ячейки, в которых находятся значения переменных x и y.  Можно конечно сделать чтобы напрямую работала указанная формула с буквами x и y, но для этого надо задать такие имена ячейкам, содержащим значения этих переменных, тогда будет работать.

4,7(19 оценок)
Ответ:
zaharkakorsunov
zaharkakorsunov
20.11.2021
Program a1;
var a,b: array [1..10] of integer; 
n,i,k,sum,c: integer;
begin
Randomize;
For i:=1 to 10 do 
   begin     
      a[i]:=random(100);     
       write(a[i]:3);   
   end;    
Readln (n);   
For i:=1 to 10 do 
   begin 
     k:=a[i];
     while k>0 do 
                    begin 
                         sum:=sum+(k mod 10);
                        k:=k div 10;
                    end; 
        f (n=sum) then  
          begin
              inc(c);     
              b[c]:=a[i];      
          end; 
 end;
for i:=1 to c do  
write(b[i]:2); 
end.
4,6(3 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ