//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.
как-то так
Объяснение:
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) презентацию
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.