Задача 1:
var a,b: real;
var c: char;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите нужную операцию (+,-,*,/): ');
readln(c);
if (c='+') then writeln('Результат: ',a+b)
else if (c='-') then writeln('Результат: ',a-b)
else if (c='*') then writeln('Результат: ',a*b)
else if (c='/') then writeln('Результат: ',a/b);
end.
Задача 2:
var a: integer;
begin
write('Введите количество кроликов: ');
readln(a);
write('Количество морковок: ',3*100+a*2);
end.
Задача 3:
var a: integer;
begin
write('Введите число: ');
readln(a);
write('Последняя цифра числа: ',a mod 10);
end.
Құпия сөз-пайдаланушының есептік жазбалары бойынша жүйеге кіруді басқару үшін, сондай-ақ компьютер мен ресурстарға қол жеткізуді ұйымдастыру үшін пайдаланылатын қорғаныс құралы. Жүйе үшін құпия сөз сіздің аккаунтыңызға кіргенін растайды.
Құпия сөз-визитка-идентификатор. Жақсы құпия сөз бірнеше талаптарға жауап беруі керек. Біріншіден, ол есте сақтау үшін оңай болуы керек, әйтпесе Сізге күніне жүз рет парольді қалпына келтіру қажет. Екіншіден, ол ашу үшін өте қиын болуы керек. Осы екі талапты бірге біріктіру өте қиын. Көшелер, қалалар, аттар шифрын шешу үшін қиындықтар тудырмайды, ал әріптер мен сандар жиынтығы бар пароль, мысалы "uy5hn8jree3", есте сақтау өте қиын. Файлда құпия сөзді сақтау кейбір мәселелерді шеше алады, алайда, хакер үшін сіздің компьютеріңізді алақандағыдай есте.
// Внимание! Если программа не работает, обновите версию!
begin
ArrRandom(ReadInteger('n='),0,1).Println.Sorted.Println
end.
Пример
n= 15
0 0 1 1 0 1 1 1 1 0 0 1 1 0 1
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1