var
s1, s2: string;
i, n1, n2: integer;
begin
writeln('Введите первое слово');
readln(s1);
writeln('Введите второе слово');
readln(s2);
writeln('Объединение слов: ', s1 + s2);
writeln('Длина первого слова: ', length(s1));
writeln('Длина второго слова: ', length(s2));
for i:= 1 to length(s1) do
if s1[i] = 'а' then inc(n1);
for i:= 1 to length(s2) do
if s2[i] = 'a' then inc(n2);
writeln('В первом слове ', n1, ' букв "а" ');
writeln('Во втором слове ', n2, ' букв "а" ');
writeln('Первые 5 букв первого слова: ', copy(s1, 1, 5));
writeln('Первые 5 букв второго слова: ', copy(s2, 1, 5));
delete(s1, length(s1) - 4, 5);
delete(s2, length(s2) - 4, 5);
writeln('Результат удаления последних 5 букв первого слова: ', s1);
writeln('Результат удаления последних 5 букв второго слова: ', s2);
end.
"Увеличить каждый элемент массива в 3 раза и если элемент массива отрицательный."
Увеличить каждый элемент массива в 3 раза, если элемент массива отрицательный. Может так? Если так, то вот код.
var
l: Array[1..10,1..10] of Integer;
i,j,n,m: Integer;
begin
Writeln('Vvedite razmer matrisi: ');
Readln(n,m);
writeln('Isxodnaya matrisa:');
for i:=1 to n do
begin
for j:=1 to m do
begin
l[i,j]:=Random(51)-25;
Write(l[i,j]:4);
end;
writeln
end;
writeln('Izmenennaya matrisa:');
for i:=1 to n do
begin
for j:=1 to m do
begin
if l[i,j]<0 then l[i,j]:=l[i,j]*3;
write(l[i,j]:4);
end;
writeln
end;
end.
Б)Всякий
В)Некоторый
Г)Некоторый
Д)Все/каждый
Е)Некоторый
Ж)Ни один
З)Все/каждый