Напишите блок схему к и программу,умоляю. : с клавиатуры вводится два числа являющихся сторонами треугольника.доказать что треугольник является равнобедренным с логической переменной
В программе буквы добавляются по алфавиту без повторений. var s1,s2:string; function F(var a,b:string):boolean; var m:set of char; i:integer; c:char; begin m:=[]; for i:=1 to length(a) do if pos(a[i],b)=0 then m:=m+[a[i]]; for c:=chr(32) to chr(255) do if c in m then a:=a+c; if m=[] then f:=false else f:=true; end; begin writeln('Введите строку 1:'); readln(s1); writeln('Введите строку 2:'); readln(s2); if f(s1,s2) then writeln('Новая строка: ',s1) else writeln('Строка не изменилась ');end.
Пример: Введите строку 1: program Введите строку 2: procedure Новая строка: programagm
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i+j>5) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.
2)var a:array[1..4,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i>J) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.