1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.
var
i: integer;
s: string;
begin
i := 1;
while i <= 5 do
begin
readln(s);
if s = 'zn4n1j4' then
begin
writeln('Вход в систему разрешен');
exit;
end;
writeln('Неверный пароль.');
end;
writeln('Пароль не был угадан 5 раз.');
end.
2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.
var
x, ans: integer;
begin
read(x);
ans := 0;
while x <> 0 do
begin
ans := ans + (x mod 10);
x := x div 10;
end;
writeln(ans);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Операционная система, Файловая системаЗадание 1Tae Hexagerer BIOSсть Atомерованных пунктовеBepse O US 4 SapMo8 omsema:1) 8 DOCTOGHNO-ANOMRAKOWIen yetpolicise (13)3) na CD ROX4) e onepamisho NOMIHARWEn yetponerse (OBV)Tssiski settoGordosКакие файлы будут участвовать в групповой операции, если была задана маска (шаблон)Bepesme neck 63 sapuanmos omsema:1) puntyplus.exe2) Wind.mn3) history.pptx4) ЭМБЛЕМА.pptx5) Access Комплексная работа.docx6) MS Access.mtt7) isocteur, ttf8) setup.exeЗадание 3Какие функце! Быполняет командный процессор?B epume ODUN US 4 sapusimos omseme:1) обрабатывает команды, введенные пользователем2) хранит все команды, которые использует пользователь в своей работе3) хранит все команды операционной системы4) обрабатывает команды и программы, выполняемые при каждом запуске компьютераПse tet 15реен треЗадание 4BorwocПуть к файлу-этоBroepune ODUN US 3 sapuarmos omsema:1) список файлов, собранных в одном каталоге2) поименованная область на диске3) последовательность папок, начиная от самой верхней и заканчивая той, в которойнепосредственно хранится файл, разделенных знаком *Задание E5BonpocОперационная система - этоBroepune Odun us 4 sapuawmoe omsema:1) совокупность программ, используемых для операции с документами2) система программирования на языке низкого уровня3) совокупность основных устройств компьютера4) набор программ, обеспечивающих совместное функционирование всех устройств компьютераи предоставляющих пользователью доступ к его ресурсамЗадание 36BondocУкажите полное имя файла Іanov.docGOROD- SCHOOLIvanor docLSCHOOL2CLASSI10А— Masha txtCLASSJanuwume omЗадание 87bongocOaithon habeaerceВыберите один з 3 вариантов ответа:1) область на диске, в которой хранятся программы, предназначенные для работы соперационной системой2) набор программ, предназначенных для организация диалога с пользователем3) поименованная область на диске
Удачи в изучении языка.
#include <iostream>
#include <clocale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int n;
int *a;
cout << "Введите размер массива : ";
cin >> n;
a = new int[n];
int k = 0;
for (int i = 0; i < n; i++)
cin >> a[i];
cout << "Четные элементы : ";
for (int i = 0; i < n; i++)
if (a[i] % 2 == 0)
{
cout << " " << a[i];
k++;
}
cout << endl;
cout << "Количество четных чисел: " << k << endl;
for (int i = 1; i < n; ++i) //Пузырьковая сортировка
{
for (int t = 0; t < n - i; t++)
{
if (a[t] < a[t + 1])
{
int temp = a[t];
a[t] = a[t + 1];
a[t + 1] = temp;
}
}
}
cout << "Отсортрованный массив по убыванию: ";
for (int i = 0; i < n; i++)
cout << a[i] << " ";
cout << endl;
system("pause");
return 0;
}