PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=readInteger('Элементов в массиве:'); var a:=ArrGen(n,i->3-i*2+i,1); a.Println; Writeln; a.PrintLines; Writeln('Некратных семи: ',a.Where(t->t mod 7 <> 0).Count); Writeln('Отрицательных: ',a.Where(t->t<0).Count); a:=a[:2]+a[3:5]+Arr(99)+a[5:]; a.Println; end.
Внимание! Если программа не работает, обновите версию!
begin
var n:=readInteger('Элементов в массиве:');
var a:=ArrGen(n,i->3-i*2+i,1);
a.Println; Writeln; a.PrintLines;
Writeln('Некратных семи: ',a.Where(t->t mod 7 <> 0).Count);
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
a:=a[:2]+a[3:5]+Arr(99)+a[5:]; a.Println;
end.
Пример
Элементов в массиве: 7
2 1 0 -1 -2 -3 -4
2
1
0
-1
-2
-3
-4
Некратных семи: 6
Отрицательных: 4
2 1 -1 -2 99 -3 -4
Вот программа без цикла.
#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
int d, m, y, i;
int max[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
setlocale(0, "");
cout << "Введите день(число)";
cin >> d;
cout << "Введите месяц(число)";
cin >> m;
cout << "Введите год(число)";
cin >> y;
if ( (y % 4 == 0 && y % 100 != 0) || y % 400 == 0) //Проверка что год високосный
max[1]++;
if( d == max[m-1])
{
d = 1;
m++;
}
else
d++;
if (m == 13)
{
m = 1;
y++;
}
cout << d << " " << m << " " << y;
cin >> d;//Ожидание ввода, чтобы посмотреть результаты пработы программы
return 0;
}
Эта программа определяет следующий день от текущего.
А вот программа, которая определяет предыдущий день.
#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
int d, m, y, i;
int max[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
setlocale(0, "");
cout << "Введите день(число)";
cin >> d;
cout << "Введите месяц(число)";
cin >> m;
cout << "Введите год(число)";
cin >> y;
if ( (y % 4 == 0 && y % 100 != 0) || y % 400 == 0) //Проверка что год високосный
max[1]++;
if( d == 1)
{
if (m == 1)
{
m = 12;
y--;
}
else
m--;
d = max[m - 1];
}
else
d--;
cout << d << " " << m << " " << y;
cin >> d;//Ожидание ввода, чтобы посмотреть результаты пработы программы
return 0;
}