Program god_Japan;
var y, y1: Integer;
color : Integer;
beast : Integer;
begin
Write('Введите год');
ReadLn(year);
year1 := ((year - 1984) mod 60 + 60) mod 60;
beast := year1 mod 12;
color := (year1 div 12) mod 5;
Write(year, ' - год ');
if beast in [2, 3, 4] then
case color of
0: Write('зеленого');
1: Write('красного');
2: Write('желтого');
3: Write('белого');
4: Write('черного');
end
else
case color of
0: Write('зеленой');
1: Write('красной');
2: Write('желтой');
3: Write('белой');
4: Write('черной');
end;
Write(' ');
case beast of
0: Write('Крысы');
1: Write('Коровы');
2: Write('Тигра');
3: Write('Зайца');
4: Write('Дракона');
5: Write('Змеи');
6: Write('Лошади');
7: Write('Овцы');
8: Write('Обезьяны');
9: Write('Курицы');
10: Write('Собаки');
11: Write('Свиньи');
end;
WriteLn();
end.
#include <iostream>
#include <string>
int
main(void)
{
std::string in;
std::getline(std::cin, in);
int ans = 0;
for (int i = 0; i < in.length(); i++) {
if (!isspace(in[i])) {
ans++;
}
}
std::cout << ans << std::endl;
return 0;
}
Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
18)-Г
20)-Б-но це не точно.
