В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
carrot4
carrot4
03.03.2021 16:22 •  Информатика

Напишите программу, вычисляющую площадь и периметр прямоугольника, при вводимых значениях длин сторон.
( P=2(a+b); S=ab)

Показать ответ
Ответ:
ого23
ого23
03.02.2020 14:23
Var
  a: Array[1..30,1..30] of Integer;
 n,min, max, i,j,s: Integer;
BEGIN
writeln('n=');
readln(n);
Randomize;
Writeln('sluciayniy massiv:');
For i:=1 to n do
begin
  For j:=1 to n do  begin 
   a[i,j]:=Random(51)-25;
    Write(a[i,j]:5);
  end; 
 Writeln;
end; 
s:=0; 
min:= a[1,1]; 
max:= a[1,1]; 
for i:= 1 to n do
 for j:= 1 to n do 
if a[i,j]<min then
 min := a[i,j];
 for i:= 1 to n do 
for j:= 1 to n do
 if a[i,j]> max then
 max:= a [i,j];
 for i:=1 to n do
 for j:= 1 to n do
 if i=j then
s:= s+a[i,j]; 
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s); 
readln; 
end.



Var
  a: Array[1..100,1..100] of Integer; 
n,min, max, i,j,s:Integer;
BEGIN
writeln('n=');
readln(n);

Writeln('vvedite massiv:');
For i:=1 to n do
begin 
 For j:=1 to n do
begin 
read(a[i,j]); 
end; 
Writeln; 
 end; 
s:=0; 
min:= a[1,1]; 
max:= a[1,1]; 
for i:= 1 to n do 
for j:= 1 to n do 
if a[i,j]<min then min := a[i,j];   {поиск минимального элемента }
 for i:= 1 to n do
 for j:= 1 to n do 
if a[i,j]> max then max:= a [i,j]; {поиск максимального элемента}
for i:=1 to n do 
for j:= 1 to n do 
if i=j then s:= s+a[i,j]; { поиск элементов главной диагонали и нахождение их суммы}
writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s); 
readln;
end.
0,0(0 оценок)
Ответ:
AlexFireStreamGun
AlexFireStreamGun
02.01.2020 03:06
Program primer;
Var
       f,h:text;
       I: integer;   
      S: string;   
 Begin
Assign(f,'F.txt');
Assign(h,'H.txt');
rewrite(f);

Writeln('текст в файл F: ');

readln(s);
writeln(f,s);   //Записать текст в файл F
close(f);
Rewrite(h);
Reset(f);
Readln(f,s);
write(h,'  ');
For i:=1 to length(s) do        
                                          begin
                                              write(h,s[i]);  //Переписать компоненты файла F в файл H 
                                              if (s[i]=' ') then            
                                         begin 
                                             write(h,'  ');   //вставляя в начало каждого слова по двум пробела
                                         end;
                                         end;        

close(f);
close(h);
end.
// Паскаль ABC
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота