Не уточнили язык - получите паскаль. Мог бы сделать на С++
program Znanija;
var n,i:integer;
begin
readln(n);
if n < 0 then
begin
writeln('Я не разработал программ');
exit;
end;
write('Я разработал ', n, ' ');
case n of
1:writeln('программу');
2..4:writeln('программы');
0,5..10:writeln('программ');
end;
end.
Var
a:array[1..9] of boolean;
cnt,tmp,cur,all, i:integer;
begin
Writeln('Введите "0", чтобы закончить тестирование досрочно');
for i:= 1 to 9 do begin
tmp:= 1 + random(9);
while a[tmp] = true do
tmp:= 1 + random(9);
Write('8 * ',tmp,' = ');
Read(cur); if cur = 0 then break;
all:= all+1;
if cur = 8*tmp then cnt:=cnt+1 else writeln('Wrong: ', 8*tmp);
a[tmp]:=true;
end;
Writeln(cnt,'/',all);
end.
<u>Пример:</u>
Введите "0", чтобы закончить тестирование досрочно
8 * 8 = 64
8 * 3 = 24
8 * 5 = 45
Wrong: 40
8 * 7 = 0
2/3
<u>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Вводите:').ToWords.Where(w->(w.Length).IsOdd)
.Where(w->w.Right(2)='ая').Println
end.
A матрица(массив)
m и n границы матрицы
min:integer; минимальное. indexmin:string
max:integer; максимальное. indexmax:string
min:=a[1,1];
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]>max then begin max:=a[i,j]; indexmax:=inttostr(i)+' '+inttostr(j); end;
if a[i,j]<min then begin min:=a[i,j]; indexmin:=inttostr(i)+' '+inttostr(j); end;
end;
writeln(max,indexmax);
writeln(min,indexmin);
