Решите пожалуйста!Даны три числа, если первое число положительно, то два других уменьшить в два раза, в противном случае увеличить на 3.В фри паскале
5-9 класс
|
на на английском языке.
var a:array [1..100] of real;
i,j,n:integer;
Begin
n:=3;
for i := 1 to n do
read(a[i]);
if a[1]>0 then
for i:= 2 to n do a[i]:= a[i]/2;
else
for i:= 2 to n do a[i]:=a[i]+3;
for i:= 1 to n do
write(a[i],'' );
End.
универсальный вариант сведенный к 3 элементам
Другие вопросы из категории
равна 11111111, а в каждой последующей- значение информации в 2 раза больше, чем в предыдущей? Следует учесть, что при переполнении разрядов бит не теряется, а прибавляется к младшему разряду полученного числа.
времени надо говорить, чтобы заполнить 80% объема памяти диска D? С объяснением, пожалуйста.
программа фриПаскаль!
Составьте программу выводящую на экран мое имя "Алиса"
Помогите,очень прошу!
Читайте также
Паскале.На анлийском языке.
второго, "равно" — если числа равны, "меньше" — если первое число меньше второго. Сами числа выводить не нужно.
нужно решить в рандоме!! ! :(