Задача 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", есте сақтау өте қиын. Файлда құпия сөзді сақтау кейбір мәселелерді шеше алады, алайда, хакер үшін сіздің компьютеріңізді алақандағыдай есте.
Если целая и дробная часть числа равны - вывести на экран True
Нет - False
Приведенный ниже код не работает. Неверно считает дробную часть (вернее не так, как нужно).