Напишите программу нахождения суммы большего и меньшего из трех чисел

👇

Ответ:

Карина1111999

15.04.2021

Var
A,B,C,M:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
M:=A;
if M<B then M:=B;
if M<C then M:=C;
if A>B then A:=B;
if A>C then A:=C;
Write(A,' + ',M,' = ',A+M)
End.

4,6(75 оценок)

Открыть все ответы

Ответ:

sanny2

15.04.2021

как-то так

Объяснение:

1. Минимально необходимый набор устройств для работы компьютера содержит…

b) системный блок, монитор, клавиатуру

2. Программное обеспечение (ПО) – это:

совокупность программ, позволяющих организовать решение задач на компьютере

3.Прикладное программное обеспечение:

программы для решения конкретных задач обработки информации

Системное программное обеспечение:

программы для организации совместной работы устройств компьютера как единой системы

Назначение антивирусных программ

обнаружение и уничтожение вирусов;

контроль возможных путей распространения компьютерных вирусов;

обнаружение компьютерных вирусов;

«излечение» зараженных файлов;

6. К устройствам вывода графической информации относится…

b) принтер

7. Сканер – это …

c) устройство, которое создает цифровую копию текстовой и графической информации

8. Манипулятор типа мышь – это …

d) устройство ввода управляющей информации

9. Бит – это...

b) минимальная единица информации, принимающая значение 0 или 1

10. Что такое Корзина?

a) это средство дополнительной безопасности при удалении файлов или папок

11. Что такое Диалоговое окно команды?

a) окно, в котором пользователь выбирает или задает параметры запрашиваемой команды

12. Какие из указанных стандартных программ Windows позволяют создавать графические изображения?

c) Word Pad

d) Paint

13. Папка – это …

a) контейнер для программ и файлов в графических интерфейсах пользователя

14. Какой может быть длина названия файлов?

a) от 1 до 255 символов, включая пробелы

15. Как называется папка, в которую временно попадают удалённые объекты?

c) корзина

16. Какая из нижеприведенных записей может быть именем файла?

c) lacd.doc

17. Какие программы используют для уменьшения объема файлов?

a) программы-архиваторы

18 . Какие программы из ниже перечисленных являются антивирусными?

a) Doctor WEB, AVP

19. Растровое изображение создается с использованием…

точек различного цвета (пикселей)

20.Применение векторной графики по сравнению с растровой:

не влияет на объем памяти, необходимой для хранения изображения, и на трудоемкость редактирования изображения;

21. Что такое презентация PowerPoint?

a) демонстрационный набор слайдов, подготовленных на компьютере

22. Совокупность слайдов, собранных в одном файле, образуют…

b) презентацию

4,8(48 оценок)

Ответ:

Som777nik

15.04.2021

//Pascal
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then
begin
Count := Count + 1;
Delete(s,i,1);
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.

//FreePascal/Delphi/PascalABC.NET(v3.3.1590)
{$MODE OBJFPC} //В PascalABC.NET можно убрать
uses SysUtils; //В PascalABC.NET можно убрать
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
try
if StrToInt(S[i]) mod 3 = 0 then
begin
Count := Count + 1;
Delete(s,i,1);
end;
except
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.

Напишите, , программу, подсчитывающюю количество цифр во введенной строке кратные 3. после чего удал