Помогите пожалуйста,очень нужно,прямо сейчас

Знания

Информатика

1 ответ:

OlegGromov [111]3 года назад

0 0

1) 100002) 11000110113) 1001000000001004) 102585) 2A0

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

В ПАСКАЛЕ! написать программу которая по номеру месяца выдает название следующего за ним месяц при m=1

Наталка-Красавка [153]

Var
m:integer;
begin
read (m);
case m of
1: write ('Февраль');
2: write ('Март');
3: write ('Апрель');
4: write ('Май');
5: write ('Июнь');
6: write ('Июль');
7: write ('Август');
8: write ('Сентябрь');
9: write ('Октябрь');
10: write ('Ноябрь');
11: write ('Декабрь');
12: write ('Январь');
end;
end.

0 0

4 года назад

16. Вася и Коля живут в многоэтажном доме: Вася на втором этаже, а Коля на четвёртом. Во сколько раз пол квартиры Коли расположе

nika23 [1]

16 .в 3 раза .17 на 5 19. 2 землекопа

0 0

4 года назад

Какое слово зашифровано? НПЕЁМЭ Код к зашифровке - сдвиг на одну букву.

Евгения1979

модель
на одну букву в леао

0 0

3 года назад

Французский математик в честь которого названа прямоугольная система координат

ИП

Рене Декарт..........

0 0

3 года назад

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

3. Из элементов массива С сформировать массив А той же размерности по правилу: если элемент четный, то A(I)=C(I)2 , если нечетны

Katerina789

Const n=5;
var c,a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do c[i]:=random(100);
for i:=1 to n do write(c[i]:4);
writeln;
for i:=1 to n doif (c[i] mod 2)=0 then a[i]:=c[i] {если элемент четный, то A(I)=C(I)2 возможно здесь лишняя 2,если нет,тогда допишите сами правильно}
else a[i]:=c[i]*2;for i:=1 to n do write(a[i]:4);
end.

0 0

4 года назад