#include <iostream>
using namespace std;
int main(){
int number = 0;
cout << "Enter the month number: ";
cin >> number;
if ((number >= 1) and (number <= 12)){
if (number < 8){
if (number % 2 != 0){
cout << "31 days";
}else if((number % 2 == 0) and (number != 2)){
cout << "30 days";
}else if(number == 2){
cout << "28 days";
}
}else if (number > 7){
if (number % 2 != 0){
cout << "30 days";
}else if(number % 2 == 0){
cout << "31 days";
}
}
}else{
cout << "Please enter a valid number";
}
return 0;
}
// PascalABC.NET 3.4.2, сборка 1782 от 01.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var число := ReadInteger('Введите трехзначное натуральное число:');
var (сотни, единицы) := (число div 100, число mod 10);
var десятки := число div 10 mod 10;
var ПроизведениеЦифр := сотни * десятки * единицы;
var СуммаЦифр := сотни + десятки + единицы;
Println('Искомый остаток равен', ПроизведениеЦифр mod СуммаЦифр);
Println('Новое число', 100 * сотни + 10 * единицы + десятки)
end.
Введите трехзначное натуральное число: 389
Искомый остаток равен 16
Новое число 398
const
n=10;
r=99;
var
i:integer;
min:integer;
m:array[1..n] of integer;
begin
randomize;
min:=maxint; //Или intmax
for i:=1 to n do
begin
m[i]:=random(99)+1; //заполняем случайно от 1 до 99
write(m[i],' ');
end;
writeln;
for i:=1 to n do if min>m[i] then min:=m[i];
write(min);
end.