4 года назад

Pascal. Поострить матрицу 8 столбцов 30 строк, которая заполнена значениями от 0 до 1

Знания

Информатика

1 ответ:

Deni8 [124]4 года назад

0 0

Готово.......................

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

Вопрос по программированию pascal 1 Составить программу для вычисления площади и периметра трапеции, если стороны основания и в

kyrtizanka [57]

Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin

var (a,b):=readreal2('Введите стороны :');

var (c,d):=readreal2('Введите основания :');

var h:=readreal('Введите высоту :');

var S:=((c+d)/2)*h;

writeln('S=',S);

var P:=a+b+c+d;

writeln('P=',P);
end.

0 0

4 года назад

Информатика: (Pascal abc) Дано трехзначное число, определить сумму, произведение, средне арифметическое значение цифр этого числ

Диванный коментатор

Var sum,p,x,z:integer;
begin 
writeln('Введите трёхзначное число'); 
read(x); 
sum:=x mod 10 + x div 100 + x div 10 mod 10; 
p:=(x mod 10) * (x div 100) * (x div 10 mod 10); 
z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100); 
writeln('Сумма цифр =',sum); 
writeln('Среднее арифметическое цифр =',sum/3); 
writeln('Произведение цифр =',p); 
writeln('После перестановки 1 и 3 цифр =',z); 
end.

0 0

4 года назад

8 байт в биты и доп информацию

cergey1980

1 байт = 8 бит, тогда 8 байт - 64 бит

0 0

4 года назад

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

Составить программу которая печатает таблицу умножения и таблицу сложения для числа N в десятичной системе счисления. Протестиро

sonna [13]

#include <iostream>
using namespace std;

int main()
{
 int n;

 cout << "Enter N: ";
 cin >> n;

 for (int i = 1; i <= 10; i++) {
 cout << n << " * " << i << " = " << n * i << endl;
 }

 cout << endl;

 for (int i = 1; i <= 10; i++) {
 cout << n << " + " << i << " = " << n + i << endl;
 }

 return 0;
}

0 0

4 года назад

Помогите! Функция компьютера:?

Владимир 789

Обработка информации;хранение данных;перемещение информации;управление файлами.

0 0

4 года назад

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