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

Напишите для обработки натурального числа в паскале

👇
Ответ:
podlubnijp08ieo
podlubnijp08ieo
21.08.2022
Var
  i: real; //Натуральное число
begin
  readln(i); //Считал число
  while (i > 5) do //В условном цикле...
    i := i / pi; //...преобразовал число
  writeln(i); //Вывел число
end.
4,6(4 оценок)
Открыть все ответы
Ответ:
аленаzm
аленаzm
21.08.2022
#include <iostream>
#include <vector>
using namespace std;

int main() {
    unsigned short int n;
    cout << "n = ";
    cin >> n;
    vector<int> a;
    int in,
        avg,
        s = 0,
        c = 0;
    for (int i = 0; i < n; ++i) {
        cout << "a[" << i << "] = ";
        cin >> in;
        a.insert(a.end(), in);
        if (i % 2 == 1) {
            s += a.back();
            c++;
        }
    }
    avg = (int) s / c;
    cout << "Среднее арифметическое элементов на нечётных позициях: "
         << avg;
    return 0;
}
4,8(4 оценок)
Ответ:
asdffhcjbh
asdffhcjbh
21.08.2022
Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.

Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;      
      s:string;
begin
randomize;
writeln('взять ли числа случайными? ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);  
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.
4,8(35 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ