Pascal

Посоны хелпуйте  :NYyes: хз туда-не туда тему создал...

21. Написать программу, которая по паролю будет определять уровень доступа сотрудника к секретной информации в базе данных. Доступ к базе имеют только шесть человек, разбитых на три группы по степени доступа. Они имеют следующие пароли: 9583, 1747 - доступны модули баз А, В, С; 3331, 7922 - доступны модули баз В, С; 9455, 8997 - доступен модуль базы С.

 

это условный оператор,решений у меня нет

 

21. Дано натуральное число N (N > 9). Определить сумму цифр в первой половине числа (старшие разряды). Пример. N = 12 345 678. Сумма составляет 1 + 2 + 3 + 4 = 10. Это циклы

 

21. Натуральное число из n цифр является  числом  Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу.  Например:  153=13+53+33.  Получить все числа Армстронга, состоящие из трех цифр. Проверку числа оформить подпрограммой. Это процедуры и функции

 

 

21. Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 символ. Это строки

 

Помогите решить! просто в этот период болел нихуя не учил и понял что я уёбок просто кто чё решить может посоны от души спасибо! С наступающим офк  :NYavtoradolf:

Я ТЯ НЕ ЗНАЮ ПОМОГАТЬ НЕ БУДУ .

молодец

Pascal

 

 

Дальше не читал. Очередной умственноотсталый первокурсник.

я за тебя рад от души,всем бы быть таким как ты! С наступающим

Program PD1;

Var a:integer;

begin

Write('Пароль:');

read(a);

if a=9583 then writeln('Уровень доступа A');

if a=1747 then writeln('Уровень доступа  A');

if a=3331 then writeln('Уровень доступа  B');

if a=7922 then writeln('Уровень доступа  B');

if a=9455 then writeln('Уровень доступа  C');

if a=8997 then writeln('Уровень доступа  C');

end.

спасибо! лол я если честно сказать,даже не читал внимательно :NYsmile: она лёгкая оказалась,но всёравно большое спасибо)

 

21. Натуральное число из n цифр является  числом  Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу.  Например:  153=13+53+33

153=13+53+33 - это что блять? :petro:

 

Program qwe;

Var a,b,c:integer;

begin

for a:=1 to 9 do

for b:= 0 to 9 do

for c:= 0 to 9 do

if (a*a*a+b*b*b+c*c*c = 100*a+10*b+c) then writeln(a,b,c);

end.

 

 

Попробуй так, задача очень простая, написал так. Скажи, где компилятор скачать - тогда всё остальное решу мб :NYyes:

Program PD1;

Var a:integer;

begin

Write('Пароль:');

read(a);

if a=9583 then writeln('Уровень доступа A');

if a=1747 then writeln('Уровень доступа  A');

if a=3331 then writeln('Уровень доступа  B');

if a=7922 then writeln('Уровень доступа  B');

if a=9455 then writeln('Уровень доступа  C');

if a=8997 then writeln('Уровень доступа  C');

end.

спасибо! лол я если честно сказать,даже не читал внимательно :NYsmile: она лёгкая оказалась,но всёравно большое спасибо)

на самом деле решение не верное, потому что условия задачи подразумевают что при значении "какомтотам" будет доступно 3 уровня доступа, а не один

самый мне кажется адекватный вариант использовать флаги, ну кароче 3 логические переменные "var a,b,c:boolean;" каждая из которых подразумевает уровень доступа

тоесть делаешь хуеву тучу ифоф  :NYtrollface:

f a=9583 then a:=1; b:=1; c:=1;

ну типа на каждое число даешь 1 для уровня доступа. знаю что неадекватно описал, но это IT, бро  :NYrickroll:

за 20$ напишу как нехуй

тут 10 минут работы на всё

за 20$ напишу как нехуй

тут 10 минут работы на всё

120$ В ЧАС ЗАС ЗА ПРОГРАММИРОВАНИЕ 11ОГО КЛАССА? АХАХА ЕБАТЬ ТЫ КОНЬ

за 20$ напишу как нехуй

тут 10 минут работы на всё

120$ В ЧАС ЗАС ЗА ПРОГРАММИРОВАНИЕ 11ОГО КЛАССА? АХАХА ЕБАТЬ ТЫ КОНЬ

да тут срать на цену, пусть сам пишет  :NYtrollface: