Program primer;
Var f,g:text;
I,n,k: integer; S,a,data: string; Begin
Assign(f,'F.txt');
Assign(g,'G.txt');
rewrite(f);
Writeln('Кол-во книг? ');
readln(n);
for i:=1 to n do begin
writeln('Фамилия автора, название и год издания книги № ',i,' ?');
readln(s);
writeln(f,s); // в фаил f забиваем данные
end;
close(f);
Writeln('Укажите автора для поиска ');
readln(a);
Rewrite(g);
Reset(f);
For i:=1 to 2 do begin
Readln(f,s);
if (pos(a,s)<>0) then begin //ищем автора
data:='';
for k:=length(s) downto 1 do begin
if (s[k]=' ') then begin
data:=data+copy(s,k+1,length(s)); //смотрим дату
break;
end;
end;
end;
if (strtoint(data) >= 1980) then writeln(g,s); //сравниваем дату
end;
close(f);
close(g);
end.
<span>ABC Pascal
</span>
Var
a, b: integer;
begin
a := Random(10);
b := Random(10);
write(a, ' * ', b, ' = ');
a := a * b;
readln(b);
if a = b then writeln('Правильно')
else writeln('Не верно. Правильный ответ ', a);
end.
#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;}
Ответ:
это комплекс программ, которые обеспечивают управление работой компьютера, а также дают возможность пользователям взаимодействовать с ним
Объяснение: