3 Записать арифметические выражения на языке Паскаль.

Знания

Информатика

1 ответ:

fisherserg4 года назад

0 0

Begin
WriteLn('(x+1/x-1)^x+18xy^2')
end.

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

помогите написать программы на паскале.1. вычислить произведение нечетных чисел в диапазоне от 40 до 202. определите и выведите

lightradiance [8]

var i,count: integer;
proizv:longint;

begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.

0 0

4 года назад

Очень нужно =((Ребят, как сделать, чтобы..Например чисел 10Каждое второе (по порядку) выводить (да)Каждое четвёртое (по порядку)

Alex 77777

var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
    a[i] := random(21) - 10;
    write(a[i], ' ');
end;

writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
    if i mod 4 = 0 then
       write('нет ')
    else
      if i mod 2 = 0 then
        write('да ')
      else
        write(a[i], ' ');
end;
end.

0 0

4 года назад

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

Считая что каждый символ кодируется одним байтом определите чему равна информационный объём следующего высказывания Жан-Жака Рус

КристинаСеняКиря [693]

57 байт будет ответ, я отвечаю

0 0

4 года назад

Написать программу подсчитивающую количество цифр целого неотрицательного числа

Неролия [14]

Var a,k:integer;
begin
write('a (>0) = ');
readln(a);
k:=0;
while a>0 do
begin
k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.

Пример:
<span>a (>0) = 180653
k = 6</span>

0 0

4 года назад

Помогите пожалуйста написать программу вычисляющую n факториал. Спасибо.

егшгщне

На c++
#include<iostream>
int main() {
int res = 1;
int n;
std::cin>>n;
for (int i=1;i<=n;++i) {
res*=i;
}
std::cout<<res;
}

0 0

4 года назад