Var
День,месяц:byte;
Begin
Write('№ дня = ');ReadLn(День)
Var C: = 365 - День
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End.
#include <iostream>
#include <conio.h>
#include <Windows.h>
using namespace std;
int main()
{
SetConsoleOutputCP(1251);
SetConsoleCP(1251);
int l = 2, k = 5, lz = 0, kz = 0, sum = 0;
char s[100];
puts(«Введіть ваше секретне повідомлення:»);
gets_s(s,100);
for (int I = 0; I < strlen(s); i++)
{
if (s[i] == ‘а’ || s[i] == ‘е’ || s[i] == ‘и’ || s[i] == ‘і’ || s[i]
== ‘о’ || s[i] == ‘у’ || s[i] == ‘А’ || s[i] == ‘Е’ || s[i] == ‘И’ || s[i] == ‘І’
|| s[i] == ‘О’ || s[i] == ‘У’)
kz++;
if (kz == k)
{
s[i] = ‘a’;
kz = 0;
sum += 1;
}
if (s[i] == ‘б’ || s[i] == ‘в’ || s[i] == ‘г’ || s[i] == ‘д’ || s[i]
== ‘ж’ || s[i] == ‘з’ || s[i] == ‘к’ || s[i] == ‘л’ || s[i] == ‘м’ || s[i] == ‘н’
|| s[i] == ‘п’ || s[i] == ‘р’ || s[i] == ‘с’ || s[i] == ‘т’ || s[i] == ‘ф’ || s[i]
== ‘х’ || s[i] == ‘ц’ || s[i] == ‘ч’ || s[i] == ‘ш’ || s[i] == ‘щ’ || s[i] == ‘Б’
|| s[i] == ‘В’ || s[i] == ‘Г’ || s[i] == ‘Д’ || s[i] == ‘Ж’ || s[i] == ‘З’ || s[i]
== ‘К’ || s[i] == ‘Л’ || s[i] == ‘М’ || s[i] == ‘Н’ || s[i] == ‘П’ || s[i] == ‘Р’
|| s[i] == ‘С’ || s[i] == ‘Т’ || s[i] == ‘Ф’ || s[i] == ‘Х’ || s[i] == ‘Ц’ || s[i]
== ‘Ч’ || s[i] == ‘Ш’ || s[i] == ‘Щ’)
lz++;
if (l == lz)
{
s[i] = ‘y’;
lz = 0;
sum += 10;
}
}
puts(“Ваше розшифроване повідомлення:”);
puts(s);
cout << «Вартість подарунку становить: « << sum << «грн.» << endl;
return 0;
}
Объяснение:
Це на мові C++ можеш звідси щось взяти у свій код.