4 года назад

Составте программу вычисления произведения чисел от 1 до 101234 ... *10

1 ответ:

razry4 года назад

0 0

Program Task;
Var i: Integer;
p: LongInt;
Begin
p := 1;
For i := 1 To 10 Do
p := p * i;
WriteLn('Результат: ', p);
ReadLn;
<span>End.</span>

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

Помогите плииз вы же самые лучшие!!

hesage [7]

Желтый = Датчик

Белый = Сигнал

Оранжевый = Сравнение

Синий = Ультразвук

Фиолетовый = Старт

Зеленый = Ожидание

0 0

4 года назад

«A»: Напишите программу, которая получает два целых числа A и B (0 < A < B) и выводит квадраты всех натуральных чисел в ин

Ягуар

//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

var
    A, B: integer;

begin
    readln(A, B);
//    Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо

    while A <= B do
    begin
        writeln('Квадрат числа ', A, ' = ', A * A);
        A := A + 1;
    end;
end.

0 0

4 года назад

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

Автопилот может работать, если исправен главный бортовой компьютер или два вспомогательных. Выполните формализацию и запишите ло

Аня201600

Бр-бортовой компьютер работает
вс1-вспомогательный бр. 1 работает
вс2-вспомогательный бр. 2 работает

лог. формулы
(бр или (вс1 и вс2)) - автопилот работоспособен
( (не бр) и ( (не вс1) или (не вс2) ) ) -автопилот не работоспособен

0 0

4 года назад

Помогите какие знаете................ прошу помогите плиззз.......................Решить задачи, составить программы:1.Найти сум

арорплпопу

4)
Var i,S,a,sa:integer;
begin
for i:=1 to 4 do brgin
readln(a); S:=S+a; end;
sa:=S/4;
writeln('Среднее арефметическое: ',sa);
readln;
end.

0 0

4 года назад

СРОЧНО!!!)) Помогите пожалуйста!!!! Желательно решение на листике)) На заводе имеется 120 тонн дрожжевой массы.Ежедневно она ув

Zhoni

Var d,p,x:real; t,i:integer;
begin
d:=120;
readln(p,x,t);
for i:=1 to t do d:=d+d*p/100-x;
writeln('d = ',d:5:2);
end.

Пример:
10 15 5
<span>d = 101.68</span>

0 0

4 года назад

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

Составте программу вычисления произведения чисел от 1 до 101*2*3*4* ... *10

Составте программу вычисления произведения чисел от 1 до 101234 ... *10