Нужно написать 5 программ на языке Паскаль 1. Билеты имеют шестизначные номера. В рулоне у первого билета
номер 356561, а у последнего – 406259 Найти количество «счастливых»
билетов в рулоне и общее число билетов в рулоне. Билет считается
«счастливым», если сумма первых трех цифр номера равна сумме оставшихся
цифр номера.
2. Футболист в первый день набил на ноге мяч P раз. Каждый последующий день он набивал на Q раз больше, чем в предыдущий. Сколько дней потребуется футболисту, чтобы общее количество набитого мяча за все время работы впервые превысило запланированный им результат Т?
3. Вычислить: sin2 x+sin2 4x+sin2 7x +….(n слагаемых).
4. Вас просят ввести PIN, например 3257(4 цифры обязательно). Если PIN правильный, то выводит сообщение «Добро в терминал». Если после 3 попытки PIN введен неверно, вывести на экран “Обратитесь в банк для разблокировки карты”
5. Ввести с клавиатуры число. Так же с клавиатуры вводится цифра. Найти, входит ли введенная цифра в введенное число. Если нет вывести сообщение “Цифра не найдена”. Если входит, посчитать количество вхождений.
using namespace std;
void countChars() {
char s[256];
cout << "Введите строку: ";
cin.getline(s, 256);
int count = 0;
for (unsigned int i = 0; i < strlen(s); i++)
count++;
cout << "Количество символов в строке: " << count << endl;
}
int main() {
setlocale(LC_ALL, "Russian");
countChars();
system("pause");
return 0;
}
//
// или так
//
#include <iostream>
using namespace std;
int countChars(char* s) {
int count = 0;
for (unsigned int i = 0; i < strlen(s); i++)
count++;
return count;
}
int main() {
setlocale(LC_ALL, "Russian");
char s[256];
cout << "Введите строку: ";
cin.getline(s, 256);
cout << "Количество символов в строке: " << countChars(s) << endl;
system("pause");
return 0;
}
Оплела весь белый свет.
Не пройти детишкам мимо.
Что же это?
интернет
like 5 0 dislike
Он знает всё и даже больше,
И к нам на поспешит.
Любой вопрос, пусть очень сложный,
Мгновенно с лёгкостью решит.
Плетёт свою он паутину,
Хотя, по сути, не паук.
Он видит всё. Вы догадались?
А, ну-ка, что это за друг?
интернет
like 2 0 dislike
Это будто паутина,
В ней найдёшь ты всё о всех:
О животных, о машинах,
Будет дождь сегодня, снег?
Всё про мир и о планете
Прочитаешь в...
интернете
like 4 0 dislike
Её называют всемирная сеть,
Чего в этой сети только нет!
Она всё расскажет и даже покажет.
Она называется как?...
интернет
like 2 0 dislike
Он всех нас объединяет,
Обо всём на свете знает,
Он кино тебе покажет,
Обо всём тебе расскажет.
интернет
like 4 0 dislike
В нём есть игры и соцсети,
Фильмы, почта, курс валют.
Есть все новости планеты,
В нём танцуют и поют.
интернет
like 8 0 dislike
Средство связи редким было,
А сейчас — у всех оно.
Вот уже беспроводное,
Раньше — оптоволокно.
интернет