Hame you jom live dont gun
примерный код, т.к. на кумире писала последний раз год назад где-то, подкорректируйте ввод и лесенку
цел а
ввод а
если a mod 10 = 5 , 6, 7, 8, 9 или a mod 100 = 11 12, 13, 14, 15, ..., 19 то
вывод "лет"
иначе
если a mod 10 = 2 3,4 то
вывод "года"
иначе
если a mod 10 = 1 то
вывод "год"
Видеопамять<span> — </span>часть <span>оперативной памяти</span><span>, </span>отведённая для хранения данных,которые используются для формирования изображения на экране монитора<span>.</span>
1. если слово из 2-х букв
var a,b:char;
begin
readln(a,b);
writeln(a,b);
writeln(b,a);
writeln(a,a);
writeln(b,b);
end.
2, если не из двух букв
тут сначала вводится n - максимальная длина слова, а уже потом 2 буквы
var a,b:char;
n:integer;
procedure gen(i:integer;s:string);
begin
if i>n then exit;
if i<>0 then writeln(s);
gen(i+1,s+a);
gen(i+1,s+b);
end;
begin
readln(n);
readln(a,b);
gen(0,'');
end.
Const n=4; m=5;
var a:array [1..n,1..m] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:6);
end;
writeln;
end;
min:=a[1,1]; imin:=1;jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min=a[',imin,',',jmin,']=',min);
end.
Пример:
Исходный массив:
5 8 2 -5 -4
1 -10 9 1 -4
8 2 -6 -4 -4
8 7 3 2 2
min=a[2,2]=-10
