Решите в pascalABC 1 вариант

Знания

Информатика

1 ответ:

orlovval4 года назад

0 0

Var
 x: real;

begin
 readln(x);
 if x < 0 then
 writeln(x * x)
 else if x > 0.3 then
 writeln(-x)
 else writeln(x);
end.

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

Определить сумму всех чисел от N до M.

Ольга2908 [103]

Var n,m : Integer;
Begin
Write (' введите N: '); Readln (n);
Write (' введите M: '); Readln (m);
Writeln ((n+m)*(m-n+1) div 2);
end.

0 0

3 года назад

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

Вычислить сумму и количество элементов xi>0 массива X. X(30) Xi=(-1)i=(1+i)/корень кубический из i

ruki [6.7K]

Program sum;
var 
x: array[1..30] of real;
i, k: integer;
s:real;
begin
k:=0;
s:=0;
for i:=1 to 30 do
begin
x[i]:=(1+i)/(Exp(Ln(i) / 3))
if x[i]>0
then
begin
s:=s+x[i];
k:=k+1;
end;
end;
writeln('summa=',s);
writeln('kolvo elementov=', k);
readkey;
end.

0 0

4 года назад

Напишите противоречивое понятие понятию "Новичок"

enot [183]

Мастер,Эксперт!А если честно,то задание не очень понятно:)

0 0

3 года назад

Программирование на C++ Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000). Входные дан

madam2015 [374]

#include <iostream>
int main() {
int n;
std::cin >> n;
int i = 2;
while (n % i > 0) ++i;
std::cout << i;
return 0;
}

0 0

4 года назад

"В ячкейке G4 электроннной таблицы записана формула=D$22*$D23.Какой вид приобретет формула, после того как ячейку G4 скопируют в

jelenavilde

=C$22*$D22

D$22 -полуабсолютнаяссылка. После копирования буква столбца сместится влево (D-C)
$D23 - полуабсолютнаяссылка. После копирования цифра строки сместится вверх (23-22)

0 0

4 года назад