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

:написать программу, получающую с клавиатуры целое число и определяющую, верно ли, что цифры расположены в порядке возрастания. написать программу, получающую с клавиатуры целое число и выводящую его наоборот (например: вводим: 123, а выводит: 321).

👇
Ответ:
Var
   A:longint;
   B:boolean;
Begin
B:=true;
Write('Введите целое число: ');ReadLn(A);
A:=Abs(A);
While A div 10 > 0 do
   Begin
   if A mod 10 < A div 10 mod 10 then B:=false;
   A:=A div 10
   End;
if B then Write('Верно')
else Write('Не верно')
End.

Var
   A:longint;
Begin
Write('Введите целое число: ');ReadLn(A);
if A < 0 then
   Begin
   Write('-');
   A:=-A;
   End;
While A > 0 do
   Begin
   Write(A mod 10);
   A:=A div 10
   End;
End.
4,6(85 оценок)
Открыть все ответы
Ответ:
ВикаФан
ВикаФан
21.06.2021

1.

а) Эргономика - это наука, изучающая взаимодействие между человеком и другими элементами системы для благополучия на рабочем месте.

b) Укажите угол наклона монитора: 15 градусов.

2.

1) человек лёг на стуле - его спина не ровная, плечи должны быть расслаблены и отпущены.

2) человек должен полостью прижать себя к стулу, чтобы ноги и спина были ровными, локти должны полностью лежать на столе.

3) его ноги находятся в прямом состоянии, а они должны быть под углом 90 градусов - ровно.

3. 1 поколение - ласковые машины

2 поколение - Полупроводниковые машины на транзисторах.

3 поколение - миникомпьютеры на интегральных схемах

4 поколение - По идее должно быть микропроцессоры, ну тогда Вычислительные системы на большой интегральной схеме

4. Не полная фотография, не видно вопрос

4,5(33 оценок)
Ответ:
madina319
madina319
21.06.2021
1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
4,6(27 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ