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

4 года назад

Заполнить двухмерный массив в паскале числами от 1 до 15. i=3, j-5

Знания

Информатика

1 ответ:

евгениии4 года назад

0 0

Uses crt;
const n=3;
m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(15);
write(a[i,j]:3);
end;
end.

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

1) Найдите сумму чисел 10101 и -1110 в разрешенном коде 8разрядном формате 2) Сделайте проверку задания выше, переведя результа

Барыбин

1) 10101-1110=111₂

2) 111₂=2²*1+2*1+2⁰*1=4+2+1=7₁₀

0 0

4 года назад

Помогите составить программу на паскале

opera1375 [21]

#include <iostream>

using namespace std;

int a,b,c,d,e

void main() {

cout <<"Hello world";

}

0 0

4 года назад

Выбери правильные утверждения. Представление — целостное отражение объекта, непосредственно воздействующего на наши органы чувст

катя 13543н

Представление — чувственный образ объекта, в данный момент нами не воспринимаемого, но воспринятого ранее

На счет 3 пункта - не уверенна, но кажется не совсем

0 0

4 года назад

C++ Создать массив размером 20 и заполнить его склавиатуры. Найти кол- во четных и нечетных элементов массива. вот начало кода #

Евгения1982

#include <iostream>

using namespace std;
int main(){
   setlocale(LC_ALL, "Russian");

   int mas[20] = {};
   int buff = 0;

   for (int i = 1; i <= 20; i++){
       cout << "Введите " << i << " число" << endl;
       cin >> mas[i];
       if (mas[i] % 2 == 0)
       {
           buff++;
       }
   }

   cout << "Количество чётных: " << buff << '\n';
   cout << "Количество нечётных: " << 20-buff << '\n';
}

0 0

3 года назад

Информатика паскаль 9 класс

KseDar

На 4:

var i,x,oc:integer;s:real;

begin

readln(x);

s:=0;

for i:=1 to x do

begin

oc:=random(5)+1;

s:=s+oc;

end;

writeln(s/x);

end.

На 5:

var i,s,ch,min:integer;

begin

s:=3;

for i:=3 to 30 do

begin

s:=s+2;

end;

ch:=s div 60;

min:=s-ch*60;

writeln('Часов ',ch,' минут ',min);

end.

0 0

3 года назад