М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Kozlovanika71
Kozlovanika71
25.04.2022 16:07 •  Информатика

Тема: программирование на языке паскаль. , : даны 2 переменные a и b. найти сумму этих чисел, разность, произведение, частное, остаток отделения первого числа и второго, целую часть.

👇
Ответ:
05Goryanka05
05Goryanka05
25.04.2022
Program easy;
uses crt;
var a,b:integer;
begin
readln(a,b);
writeln(,a,' + ' ,b,' = ',a+b);
writeln(,a,' - ' ,b,' = ',a-b);
writeln(,a,' / ' ,b,' = ',a/b);
writeln(,a,' * ' ,b,' = ',a*b);
writeln(,a,' mod ' ,b,' = ',a mod b);
writeln(,a,' div ' ,b, ' = ',a div b);
end.
4,6(52 оценок)
Открыть все ответы
Ответ:
нара123
нара123
25.04.2022
Var 
  r1, r2, x1, y1, x2, y2, x3, y3, x4, y4 :real;
begin
  read(x1,y1,x2,y2,x3,y3,x4,y4);
  if x1>x2 then r1:=(x1-x2)*(x1-x2)
  else r1:=(x2-x1)*(x2-x1);
  if y1>y2 then r1+=(y1-y2)*(y1-y2)
  else r1+=(y2-y1)*(y2-y1);
  if x3>x4 then r2:=(x3-x4)*(x3-x4)
  else r2:=(x4-x3)*(x4-x3);
  if y3>y4 then r2+=(y3-y4)*(y3-y4)
  else r2+=(y4-y3)*(y4-y3);
  if r1>r2 then writeln('Первый длинней второго') 
  else
    if r1=r2 then writeln('Они равны') 
    else
    writeln('Второй длинней первого');
end.
4,6(65 оценок)
Ответ:
Nikilengelo
Nikilengelo
25.04.2022
Var mas:array[1..100,1..100] of integer; 
           N,M,D,N2,i,C,j,M2,k:integer; 
begin
N:=0;D:=0;k:=0;
write('Введите N = ');Readln(N);
write('Введите M = ');Readln(M);  
For i:= 1 to M do begin         
     M2:=1;        
        For N2:=i downto 1 do begin                 
                 if M2<=N then begin         
                       mas[M2,N2]:=k;                   
                       k:=k+1;                 
                       M2:=M2+1;          
                  end;            
               end;   
        end;          
 //после побочной диагонали    
For D:=2 to N do begin   
      M2:=D;         
              For N2:=M downto 1 do begin                  
                    IF (M2<=N) and (N2<=M) then begin           
                              mas[M2,N2]:=k;                   
                              k:=k+1;                   
                            M2:=M2+1;                
                     end;         
           end;         
end;       
    For i:=1 to N do begin Writeln();         
           for j:=1 to M do                
          write(mas[i,j],'    ');    
       end;  
end.
4,8(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ