Задать вопрос!

Задать вопрос!

Все категории

Людмила 87

3 года назад

9

Помогите пожалуйста буду благодарна

Помогите пожалуйста буду благодарна

Информатика

1 ответ:

otvetNavopros [3]3 года назад

0 0

А какое задание надо?

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

Помогите пожалуйста написать на Паскале! Написать программу, которая запрашивает массив из N целых чисел, а затем складывает все

максим лесков [10]

Var
a:array [1..100] of integer;
n,i,s1,s2:integer;
begin
writeln('введите кол-во эл-тов массива');
readln(N);
for i:=1 to n do
begin
read(a[i]);
if i mod 2<>0 then s1:=s1+a[i]
else s2:=s2+a[i];
end;
writeln;
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:7);
writeln('сумма элементов с нечетными номерами',s1);
writeln('сумма элементов с четными номерами',s2);
end.

0 0

4 года назад

Що таке розділ сторінки сайту??

Оля Зима

это значит - раздел страницы сайта.

0 0

4 года назад

Сообщение, набранное на компьютере с использованием системы кодирования Виндовс - 1251, содержит 1536 символов. Определите длину

Murmur [22.9K]

Длинна символа в кодировке <span>Windows-1251 составляет 1 байт.
В 1kB - 1024B.
Таким образом будет 1536/1024 = 1,5kB </span>

0 0

4 года назад

Расположи пасажиров и багаж в вагонах поезда в соответствии со списками, информатика

Эйрин [269]

С какими списками? Я не знаю по какому учебнику вы учитесь)

0 0

4 года назад

Найти сумму значений элементов массива D(8),стоящих на нечетных местах.Значения элементов массива вводятся с клавиатуры.

Sidod53

<span>program n1; uses crt; var aw:array[1..10] of integer; i,w,g:integer; begin g:=0; w:=10; for i:=0+1 to w do begin aw[i]:=random(100); write(aw[i]:6); end; writeln(); write('Чот'); for i:=0+1 to w do begin if aw[i] mod 2 = 0 then g:=g+1; end; write('Всего чотных чисел ',g); writeln(); write('Не чот'); g:=0; for i:=0+1 to w do begin if aw[i] mod 2 > 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ; end<span>.
только в столбик

</span></span>

0 0

4 года назад