М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
rafael2008
rafael2008
10.08.2021 16:54 •  Информатика

Переведите программу в free pascal var a: array [1..100] of integer; size: integer; even: integer; noteven: integer; begin write('set size a : '); read(size); for i: integer : = 1 to size do begin write('set a[', i, ']: '); read(a[i]); end; for i: integer : = 1 to size do begin if (a[i] mod 2 < > 0) then begin noteven += a[i]; end else begin even += a[i]; end; end; write('sum even numbers = ', even); writeln; write('sum noteven numbers = ', noteven); end.

👇
Ответ:
Matveystori
Matveystori
10.08.2021
Var
A: Array [1..100] of integer;
size: integer;
Even: integer;
notEven: integer;
i:integer;

begin
Write('Set size A :');
Read(size);

for i:= 1 to size do begin
Write('Set A[', i, ']: ');
Read(A[i]);
end;

for i:= 1 to size do begin
if (A[i] mod 2 <> 0) then begin
notEven += A[i];
end
else begin
Even += A[i];
end;
end;

Write('Sum even numbers = ', Even);
Writeln;
Write('Sum notEven numbers = ', notEven);
end.
4,7(42 оценок)
Ответ:
tkacheff2014
tkacheff2014
10.08.2021
Если Вы имели в виду "подогнать" под Free Pascal, то так:

varA: Array [1..100] of integer;size,Even,notEven,i: integer;
beginWrite('Set size A :');Read(size);
for i := 1 to size do beginWrite('Set A[', i, ']: ');Read(A[i]);end;
for i := 1 to size do beginif (A[i] mod 2 <> 0) then beginnotEven += A[i];endelse beginEven += A[i];end;end;
Write('Sum even numbers = ', Even);Writeln;Write('Sum notEven numbers = ', notEven);end.
4,4(15 оценок)
Открыть все ответы
Ответ:
dbjshsg
dbjshsg
10.08.2021
1. "в одном килограмме 1000 грамм" - считая пробелы в этом предложении 29 символов - следовательно предложение вест 29 байт

2. 35-10=25 значений, 25 лежит в рамках от 17 до 32, следовательно одно значение будет весить 5 бит. так как 2^5=32. было 27 измерений - 5*27=135. ответ : объем всех результатов - 135 бит

3.  Одна лампа равна одному биту, так как можно представить, что включено - 1, выключено - 0. 
аналагично со второй задачей 200 лежит в рамках от 128(2 в седьмой степени) до 256(два в восьмой степени), значит для 200 разных сигналов потребуется 8 ламп
4,4(54 оценок)
Ответ:
duyquhuseynli
duyquhuseynli
10.08.2021
/*некритично, но у тебя нет диалога с пользователем. неплохо бы предложить ему ввести данные. в коде нет пояснений. 
*/
#include<iostream.h>
#include<conio.h>
#include<math.h> 
int main()

int b,a, x,y,z; 
cout<<"insert a"; cin>>a>>endl; 
cout<<"insert b"; cin>>b>>endl; 
cout<<"insert x"; cin>>x>>endl; 
//а что такое x, y,  и z - вообще непонятно. И откуда q появилась? ты ее не
//объявлял. 

if ((a%5==0)&&(b%5==0));
  {
if ((x<y)&&(y<z)) 
                   {y=a*x-b; cout<<"y="<<y<<endl; }
  if ((y<x)&&(y<z)) 
                   {y=a*y-b; cout<<"y="<<y<<endl; }
}
else cout<<"a i b ne kratny 5";
getch(); 
return 0;
4,5(28 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ