Keksic0066

02.05.2020 10:40

Информатика

Есть ответ 👍

Все задачи нужно выполнить в Паскале.

1. Рассчитать значения y при каждом х. х = 3, 4, ..., 25: y = 2t2 + 5,5t – 3, если t = x + 2.

2. Составить программу, которая запрашивает пароль (трехзначное число + 2 символа) до тех пор, пока он не будет правильно введен. Верный пароль должен быть задан в виде константы.

3. Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры.

4. Вводится четырёхзначное число (xysz). Вывести сумму xy + sz. Начальные данные необходимо ввести с клавиатуры.

В отчет включить текст программ на Паскале, реакцию ЭВМ.

194

330

Посмотреть ответы 2

Ответы на вопрос:

Belcard

Информатика

4,4(96 оценок)

PascalABC.NET

function Y(x:integer) := 2*((x+2)**2)+5.5*(x+2) - 3;

begin

var Xes := Range(3, 25);

Xes.Tabulate(p -> Y(p)).Println;

end.

const PASS = '123ab';

begin

var rpass := Readstring('Pass: ');

while rpass <> PASS do begin

rpass := Readstring('Wrong pass. Try again: ');

end;

print('Correct password. Welcome');

end.

begin

//Сначала читаем цифру, которую надо удалить, а уже потом число.

var X := ReadChar();

var number := ReadInteger().ToString.ToCharArray.ToList;

while number.Contains(X) do number.Remove(X);

number.JoinIntoString.Println;

end.

begin

var X := ReadInteger();

Print((x div 100)+(x mod 100));

end.

Объяснение:

AmAss

Информатика

4,8(64 оценок)

Var x,y: longint; begin write('сколько дней в текущем месяце? '); readln(x); write('какое сегодня число? '); readln(y); writeln('количество дней до конца текущего месяца: б',x-y) end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.