1)
var n:integer;
begin
writeln('Введите номер месяца: ');
readln(n);
if (n = 1) or (n = 2) or (n = 12) then
writeln('Зима');
if (n = 3) or (n = 4) or (n = 5) then
writeln('Весна');
if (n = 6) or (n = 7) or (n = 8) then
writeln('Лето');
if (n = 9) or (n = 10) or (n = 11) then
writeln('Осень');
end.
2)
var n:real;
begin
writeln('Введите температуру: ');
readln(n);
if (34.1 <= n) and (n <= 36.4) then
writeln('Пониженная');
if (36.5 <= n) and (n<= 36.6) then
writeln('Нормальная');
if (36.7 <= n) and (n <= 41) then
writeln('Повышенная');
if (n <= 34) or (n > 41) then
writeln('Не может быть!');
end.
#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;
}
Если число кратно 2 и одновременно 3, то оно кратно и их произведению, т.е. 2 х 3 = 6.
Ближайшее число, превышающее 10 и кратное 6 - это 12.
Начинаем от него и идем с шагом 6, пока не превысим 99.
1. Так можно решить по-современному:
// PascalABC.NET 3.1, сборка 1190 от 05.03.2016
begin
Writeln('Искомая сумма равна ',Range(12,99,6).Sum)
end.
Результат выполнения программы
Искомая сумма равна 810
2. А так - "по-школьному":
// PascalABC.NET 3.1, сборка 1190 от 05.03.2016
var
i,s:integer;
begin
i:=12;
s:=0;
while i<=99 do begin
s:=s+i;
i:=i+6
end;
Writeln('Искомая сумма равна ',s)
end.