4 года назад

Составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10. Паскаль, цикл for

Знания

Информатика

1 ответ:

elena-r [7]4 года назад

0 0

Решение задачи в файле

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

Цветное ( с палитрой 32 цветов) растровое графическое изображение имеет размер 1600x1200 пикселей. какой объем памяти займет это

Безумный Макс 1 [7]

1 точка занимает 5 бит
(1600*1200)*5=1200000байт

0 0

4 года назад

В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв (всего используется 12 букв) и десятичны

Арсен011 [7]

1. N=2^i;
22=2^i из этого следует, что i=5 бит
2. I(одного пароля)=k(одного пароля)*i
I=6*5=30 бит= 4байт
3.I=k( кол-во номеров)*I(одного пароля)
I=32*4=128байт
Ответ:128 байт

0 0

1 год назад

Составить блок схему по программе: Program Vectors; var k,i,j,sum,para:integer; y,z:array[1..100] of integer; begin sum:=0;para:

Chenobil

Смотрите вложение
смотрите вложение
смотрите вложение
смотрите вложение

0 0

3 года назад

Замените вопросительные знаки на пропущенные числа.пжжажпжпжпжпжпжжпжпжпж помагиттетееееееее пжпжпжажажажажажжажажажажажпжжпжжпж

mikoza

1 мбайт 1000 кбайт 1000000 байт(примерно)
1 Гбайт 1000(1024) мбайт 1000000 кбайт
2 тбайт 2000 Гбайт 1000000 мбайт
1.54 Гбайт 1536 мбайт 1536000 кбайт

0 0

4 года назад

Дан массив из 10 положительных чисел. А(N)=(a0....a10). найти максимальный элемент массива и поменять местами с последним

Aaaaaaannn [17]

Program Max;
Const first = 1; last = 10;
Var a: Array [first..last] Of Integer;
m, tmp, i: Integer;
Begin
WriteLn('Введите через пробел ', last, ' чисел');
For i := first To last Do
Read(a[i]);
m := first;
For i := first To last Do
If a[i] > a[m] Then
m := i;
tmp := a[last];
a[last] := a[m];
a[m] := tmp;
WriteLn('Результат:');
For i := first To Last Do
Write(a[i], ' ');
ReadLn;
End.

0 0

4 года назад

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