Будем ремонтировать следующие опоры : A B D F H J L N O
получим 10 + 5 + 10 + 40+ 30 +50 + 2 + 3 +20 = 170
//Pascal ABC.NET 3.1 сборка 1256
Var
ars:array[1..12] of string:=('января','февраля','марта','апреля','мая','июня','июля','августа','сентября','октября','ноября','декабря');
s:string;
begin
read(s);
if s[1]='0' then delete(s,1,1);
write(copy(s,1,pos('.',s)-1),' ');
delete(s,1,pos('.',s));
write(ars[strtoint(copy(s,1,pos('.',s)-1))],' ');
delete(s,1,pos('.',s));
write(s,' года');
end.
Пример ввода:
15.10.2012
Пример вывода:
<span>15 октября 2012 года</span>
Ответ:
Объяснение:
var
num, num_work:integer;
a1, a2, a3, a4:integer;
begin
//num:=5225;
readln(num);
num_work:=num;
a1:=num_work div 1000;
num_work:=num_work mod 1000;
a2:=num_work div 100;
num_work:=num_work mod 100;
a3:=num_work div 10;
num_work:=num_work mod 10;
a4:=num_work;
if ((a1 = a4) and (a2 = a3)) then writeln('Да') else writeln('Нет');
end.
Язык C++.
#include < iostream >
using namespace std;
int main(){
int a, b;
cout << "Введите сколько пирожков съедает Буратино и сколько приготовила Мальвина." << endl;
cin >> a >> b;
b -= 5;
if (a < b || a == b)
cout << "Буратино хватит пирожков на обед." << endl;
else
cout << "Буратино не хватит пирожков на обед." << endl;
}
Исходить из имеющихся цифр или из всех 0..max?
432 - 5 или 3
120 - 3
111 - 2
2331 - 4 (3)