Var n,m:interer; Begin write('Введите день') ; Readln(d); write('Введите месяц'); Readln(m); if (m = 2) and (d=28) then writeln('День - 1',' Месяц - 3'); if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then if (d>1) and (d<31) then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else if d=31 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end; if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) they if d<30 then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else d=30 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end; readln; end. НЕДОРАБОТАНА
Begin
write('Введите день') ; Readln(d);
write('Введите месяц'); Readln(m);
if (m = 2) and (d=28) then writeln('День - 1',' Месяц - 3'); if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then if (d>1) and (d<31) then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else if d=31 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end; if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) they if d<30 then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else d=30 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;
readln;
end.
НЕДОРАБОТАНА
Объяснение:
#include <iostream>
using namespace std;
int main()
{
//1 - 2 задания
setlocale(LC_ALL, "Russian");
system("color A");
int A,a;
cout << "Введите число: ";
cin >> a;
while (a--)
cout << a << ' ';
cout << endl;
//2
cout << "Введите число: ";
cin >> A;
A -= !(A & 1) + 2;
while ((A += 2) < 1000)
{
cout << A << ' ';
}
}
//
//3 задание
#include <iostream>
using namespace std;
int main()
{
for (int i = 1; i < 10; i += 2)
cout << i * i << ' ';
}