using System;
namespace Application
{
class MainClass
{
public static void Main (string[] args)
{
int dvm = 0;
Console.WriteLine ("Введите номер месяца:");
int mec = Convert.ToInt32 (Console.ReadLine());
Console.WriteLine ("Введите день:");
int den = Convert.ToInt32 (Console.ReadLine());
if (mec > 0 && mec < 13 && den > 0 && den < 32) {
switch (mec) {
case 1:
dvm = 0;
break;
case 2:
dvm = 31;
break;
case 3:
dvm = 59;
break;
case 4:
dvm = 90;
break;
case 5:
dvm = 120;
break;
case 6:
dvm = 151;
break;
case 7:
dvm = 181;
break;
case 8:
dvm = 212;
break;
case 9:
dvm = 243;
break;
case 10:
dvm = 273;
break;
case 11:
dvm = 304;
break;
case 12:
dvm = 334;
break;
}
int dng = 365 - (dvm + den);
Console.WriteLine ("До нового года осталось " + dng + " дней");
Console.ReadLine ();
} else {
Console.WriteLine ("Ошибка");
Console.ReadLine ();
}
}
}
}
Вот на фото, только здесь 8 слов
1) var a,b:integer;beginreadln(a,b);if a>b thenwriteln(a+b,' задача решена')else writeln(a*b,' задача решена');end.
2) !!! ; 3 ; 16 ; 7 ; 8 ; 29 ; 66
3) 1
4) -5; 0; -6; 5; -0.4; 0.32; -17; 15; 11; 7; 8
//PascalABC.NET
var
m,e,o,nu,fi : integer;
begin
var n := ReadInteger('Введите число элементов массива');
var a := ArrRandomInteger(n, -10, 10);
for var i := 0 to n-1 do begin
if a[i] mod 2 = 0 then
e += 1
else
o += 1;
if a[i] = 0 then nu += 1;
if a[i] = 5 then fi += 1
end;
writeln('Содержимое массива:');
a.println;
writeln('Количество чётных: ', e);
writeln('Количество нечётных: ', o);
writeln('Количество нулей: ', nu);
writeln('Количество пятёрок: ', fi)
end.