#include <iostream>
//Размерность#define n 3#define m 3
//Диапозон#define d_min -8#define d_max 6
void enter_arr(int a[n][m]) { printf("\n >> Введите элементы массива \%dx\%d\n",n,m); for (int i = 0; i < n; i++) { printf("\n"); for (int j = 0; j < m; j++) { printf(" << a[\%d][\%d] = ", i+1, j+1); scanf("\%d",&a[i][j]); } }}
void print_arr(int a[n][m]) { printf("\n >> Массив \%dx\%d :", n, m); for (int i = 0; i < n; i++) { printf(" \n >> "); for (int j = 0; j < m; j++) printf("\%d ", a[i][j]); }}
int main(){ setlocale(LC_ALL, "rus"); int a[n][m];
enter_arr(a); print_arr(a);
for (int i = 0; i < n; i++) for (int j = 0; j < m; j++) if ((a[i][j] < d_min) || (a[i][j] > d_max)) a[i][j] *= a[i][j];
print_arr(a);
system("pause>>void"); return 0;}
1) 16 = 2⁴
2) 4 * 1024 = 4096 бит в секторе
3) 9 * 4096 = 36864 бит в дорожке
4) 180 * 8 * 1024 = 1474560 бит на всём диске
5) 1474560 / 36864 = 40 дорожек
var
V: Real;
begin
Write ('Введите сумму вклада: ');
Readln (V);
if V = 200000 then
WriteLn ('Процент дохода равен 13.5% в год')
else if V >= 350000 then
WriteLn ('Процент дохода равен 14.2% в год')
else
WriteLn ('Процент дохода в год не определен');
end;
// ну вот как-то так... Все, что меньше 200000 или находится между 200000.01 и 349999.99 идет на третью ветку с сообщение о неопределенном проценте. Это если тупо делать по условию задания.
<em>// PascalABC.NET 3.2, сборка 1401 от 14.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>1. Решение без проверки вводимых данных</em>
begin
var a,b:integer;
Read(a,b);
var P:=ArrFill(30,0);
for var i:=a-1 to b-1 do P[i]:=2;
P.Println
end.
<u>Пример</u>
2 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
<em>2. Решение с контролем ввода</em>
begin
var a:=ReadInteger('Введите a от 1 до 30:');
if a<1 then begin Writeln('Неверно'); Exit end;
var b:=ReadInteger('Введите b от '+a.ToString+' до 30:');
if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end;
var P:=ArrFill(30,0);
for var i:=a-1 to b-1 do P[i]:=2;
P.Println
end.
<u>Пример</u>
Введите a от 1 до 30: 2
Введите b от 2 до 30: 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0