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

Придумайте программу в паскаль abc для вычисления следующей величины: 1+а+а^2+k+a^k а и к пользователем.

👇
Ответ:
Гелакси27
Гелакси27
17.02.2022
var n,k:real;
begin
readln(n,k);
writeln(sqr(n)+k+exp(ln(n)*k)+n+1);
end.

Функция exp(ln(n)*k) возводит число n в степень k
4,7(47 оценок)
Открыть все ответы
Ответ:
Train2Brain
Train2Brain
17.02.2022

program cifry;

var p: integer;

var c: integer;

var s: integer;

var d: byte;

BEGIN

writeln('Программа расчёта разности произведения и суммы цифр трёхзначного числа.');

c:=100+random (900);

writeln('Число -', c);

p:=1;

s:=0;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

write('Разность произведения и суммы цифр числа -', p-s);

end.

Объяснение:

Нуэно ставить ";"  + переменная var

var p:integer, Нужно запускать програму и останавливать BEGIN , end. write писать в одной строке!

4,5(58 оценок)
Ответ:
ПолинаSweet11
ПолинаSweet11
17.02.2022

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,A,B,count1=0,d,F[17],sum=0,min1=10000,minI;

int main()

{

   for(int i=1;i<=10;i++){

       F[i]=rand()%30;

       if(F[i]>15){

           F[i]=F[i]/3;

       }

       if(F[i]<min1){

           min1=F[i];

           minI=i;

       }

       sum+=F[i];

       cout<<F[i]<<" ";

   }

   cout<<endl;

   cout<<"Suma: "<<sum<<endl;

   cout<<"minIndex: "<<minI<<endl;

   return 0;

}

11 5 4 10 9 4 6 6 7 14

Suma: 76

minIndex: 3

Объяснение:

Тут и так всё понятно


1. Заполнить массив из 10 элементов целыми случайными числами, лежащими в диапазоне от 0 до +30.2. В
4,6(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ