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

Даны три числа,вывести их в порядке не возрастания. прога - pascal abc

👇
Ответ:
pya98
pya98
17.10.2020
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)


begin
  var a:=ReadArrInteger(3);
  a:=a.Sorted.Reverse.ToArray; a.Println;
end.


begin  
  var (a,b,c):=ReadInteger3('Введите 3 числа->');
  if (a>b) and (b>c) then begin Println(a,b,c); exit; end;
  if (a>c) and (c>b) then begin Println(a,c,b); exit; end;
  if (b>a) and (a>c) then begin Println(b,a,c); exit; end;
  if (b>c) and (c>a) then begin Println(b,c,a); exit; end;
  if (c>a) and (a>b) then begin Println(c,a,b); exit; end;
  if (c>b) and (b>a) then begin Println(c,b,a); exit; end; 
end.
4,4(63 оценок)
Открыть все ответы
Ответ:
VladimerGen
VladimerGen
17.10.2020

Роль материнської плати в комп’ютері рівносильна тій, що виконує серце в живому організмі. Точно так же, як «полум’яний мотор» змушує всі органи і системи працювати і взаємодіяти один з одним, материнська плата забезпечує взаємодію всіх компонентів ПК, що підключаються до її роз’ємів, і управляє їх спільною роботою.

Справді, для того, щоб вводяться нами за до клавіатури і миші дані відобразилися на моніторі, необхідно, щоб вони потрапили в оперативну пам’ять, а процесор їх обробив, перетворив в зображення і показав нам на екрані комп’ютера. Всіма цими операціями заправляє саме «материнка».

4,7(34 оценок)
Ответ:
Kirill7692
Kirill7692
17.10.2020

1)

program test1;

var a:string;

i,n,f:integer;

begin

read (a);

n:=length(a);

for i:=1 to n do begin

if (a[i]>='0') and (a[i]<='9')  

 then f:=f+1;

end;

write ('Количество цифр= ',f);

end.

2)

program test1;

var i:integer;

begin

for i:=41 to 50 do

write(i:3);

writeln;

for i:=51 to 60 do

write(i:3);

writeln;

for i:=61 to 70 do

write(i:3);

writeln;

for i:=71 to 80 do

write(i:3);

end.

3)

var s: string;

   i: byte;

   sum,c,k: integer;

begin

sum:=0;

read(s);

for i:=1 to length(s) do

   if s[i] in ['0'..'9'] then

      begin

      val(s[i],c,k);      

      sum:=sum+c;

      end;

writeln('Сумма цифр=',sum);

end.

4,7(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ