На языке паскале сделайте 4 программы
а) Напишите программу, которая получает слово до точки и заменяет все маленькие латинские буквы a в ней на заглавные. Остальные не изменяет.
В этой программе массивы использовать нельзя.
Sample Input:
Sator Arepo tenet opera rotas.
Sample Output:
SAtor Arepo tenet operA rotAs.
б) Напишите функцию, которая получает длину массива чисел и сам массив, а возвращает максимальное нечетное число этого массива.
Sample Input:
5
1 21 30 4 15
Sample Output:
21
в)Напишите программу, которая получает слово до точки и заменяет все маленькие латинские буквы в ней на заглавные и наоборот. Остальные не изменяет.
В этой программе массивы использовать нельзя.
Sample Input:
To be or not To be.
Sample Output:
tO BE OR NOT tO BE.
г) Напишите программу, которая в последовательности целых чисел определяет их количество и сумму чётных чисел. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму чётных чисел.
В этой программе массивы использовать нельзя.
Sample Input:
4
60
15
0
Sample Output:
3
64
#include <set>
using namespace std;
int main()
{
string s;
cin >> s;
set<char> s1 = {'a','e','i','o','u','y'};
set<char> s2 = {'b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','z'};
int n1 = 0, n2 = 0;
for(int i=0; i<s.length(); i++) {
if(s1.find(s[i]) != s1.end()) n1++;
else if(s2.find(s[i]) != s2.end()) n2++;
}
cout << n1 << " " << n2 << "\n";
if (n1>n2) cout << "Гласных больше";
else if (n1<n2) cout << "Согласных больше";
else cout << "Кол-во гласных = кол-ву согласных";
return 0;
}
Пример:
program_var.
3 7
Согласных больше
234000 = 2.34×10⁵
0.0045 = 4.5×10⁻³
678 = 6.78×10²
7.302 = 7.302×10⁰
4090 = 4.09×10³
0.0306 = 3.06×10⁻²
К каким типам можно отнести перечисленные ниже данные?
200 - целое, 1 бaйт без знака, 2 байта со знаком
-17 - целое, 1 байт
2305 - целое, 2 байта
5.89 - вещественное
56890 - целое, 2 байта без знака, 4 байта со знаком (3 байта не бывает)
-56890 - целое 4 байта
-32767 - целое, 2 байта
-32769 - целое, 4 байта
2147483648 - целое, 4 байта
{ - символ, байт
7 - символ, байт
Привет - строка, 6 байт ASCII, 12 байт Unicode
1945 год - строка, 8 байт ASCII, от 11 до 16 байт Unicode (в разных стандартах)
-31009 - целое, 2 байта
byte - строка, 4 байта ASCII, от 4 до 8 байт Unicode