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

Составить программу для паскаля на сравнение двух чисел

👇
Ответ:
1AnastasiaP
1AnastasiaP
11.03.2022
Program hren;
uses crt;
var x,y:integer;
BEGIN
writeln('enter your numbers');
readln(x,y);
if x>y then
begin
writeln('the first number is greater');
end else
begin
writeln('the second number is greater');
end;
END.
4,6(84 оценок)
Ответ:
nastya2742
nastya2742
11.03.2022
Var x, y: integer;
begin
     readln(x, y);
     if (x = y) then writeln('x = y');
     if (x < y) then writeln('x < y');
     if (x > y) then writeln('x > y');
end.
4,4(87 оценок)
Открыть все ответы
Ответ:
Nuriza2002
Nuriza2002
11.03.2022

#include <iostream>

#include <algorithm>

using namespace std;

bool qw

(int g, int b)

{

   return g>b;

}

int main()

{

   int n,l;

       cin >>n;

   int A[n];

l=0;

   for (int r=0; r<n;r++)

   {

       cin >> A[r];

   }

   sort(A,A+n/2);

   sort(A+n/2,A+n,qw);

      for (int x=0; x<n;x++)

   {

       if(l<1)

           {

            cout  <<A[x];

       l++;

       }

       else if(l==1)

       {

               cout  <<" "<<A[x];

       }

   }

   return 0;

}

4,4(76 оценок)
Ответ:
ktuj240
ktuj240
11.03.2022
Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:

program N_0547847;
var
    b, c, d, f, i:integer;
    a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
  a[i]:=random(4)+2; 
  write(a[i],' '); end; 
writeln;
for i:=1 to 20 do begin
    if a[i]=2 then  b:=b+1;
    if a[i]=3 then  c:=c+1;
    if a[i]=4 then  d:=d+1;
    if a[i]=5 then   f:=f+1;
end;
writeln('Двоек: ', b); 
writeln('Троек: ', c); 
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.   
4,5(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ