Найдите произведение первых n натуральных чисел с использоваанием 3-х циклов

Знания

Информатика

1 ответ:

Елена Краз [1.5K]4 года назад

0 0

/////////////////Pascal abc////////////////
1файл- цикл for
2файл-цикл while
3 файл -цикл repeat

Читайте также

Дано действительное число x. Вычислить выражение(пример на фото) program z3_23; uses crt; var i,k,z: integer; x,s,s1,s2:real; Be

piv080808

Uses crt;
var
 k: integer;
 x, s, a: real;

begin
 ClrScr;
 Write('x=');
 Readln(x);

 a := x;
 s := a;
 k := 3;
 while k < 13 do
 begin
 a := a * (-1) * x * x / k / (k - 1);
 s := s + a;
 k := k + 2;
 end;

 writeln('s=', s:5:6);
 Readkey;
end.

0 0

1 год назад

10 слов связанных с комтьютеромсрочно!!!

Interfax2020 [367]

Мышь
Принтер
USB
Колонки
Антивирус
Память
Флешка
Wi-Fi
Монитор

Веб камера
Браузер

0 0

4 года назад

Прочитать ещё 2 ответа

Написать Программу Паскаль по задаче: если дочери 8лет, матери 38, то через сколько лет мать станет в три раза старше дочери?

Наталья 54

Чтобы составить на Паскале нужно уравнение а там легко

3(х+8)=38+х-Вот уравнение
3х-х=38-24
2х=14
х=14/2
х=7

0 0

4 года назад

Написать программу для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0. Разработать тесты проверки правильност

slavkkin

Выложу решение полного уровнения.

0 0

4 года назад

Помогите пожалуйста!Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.

lira-lirika

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.

Пример
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000

0 0

4 года назад

Прочитать ещё 2 ответа