Черти просто по клеточкам чтобы получился квадрат потом раздели их на 3 равные части
Делаем всё по уму.
1. Два столбца и три рядка размечаем.
— Столбцы: "Год", "Месяц"
— Ряды: "День рождения", "Текущая дата", "Возраст"
2. "День рождения" заполняем вручную, указываем в столбце "Год" - год рождения, в столбце "Месяц" - месяц рождения.
3. Заполняем по формулам текущую дату в ряде "Текущая дата", формула для столбца "Год":
— "=YEAR(TODAY())", функция TODAY() - возращает текущую дату в формате Exel, функция YEAR() - принемает дату формата Exel и возращает год в виде целого числа.
— "=MONTH(TODAY())", работает схоже с предыдущей функцией, но в отличии от нее, определяет из текущей даты - месяц.
4. Заполняем ряд "Возраст", тут указываем формулы для столбца "Год" и "Месяц" простые формулы, где вычетаем из текущей даты - дату рождения.
Превью на картинке и Exel документ с ним же.
1) если введённое число попадёт в промежуток от 1 до 11, то программа выполнит сложение 0+ введённое число и выведет результат.
Например,
Вводим 3, 0+3=3, программа выведет 3
2) аналогично
Uses GraphABC;procedure P1(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x-15,y+100);line(x,y+70,x+15,y+100);end;procedure P2(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x,y+100);end;var x,y,i:integer;beginx:=40;y:=100;i:=1;repeat LockDrawing; ClearWindow(clgreen); setpenwidth(3); if odd(i) then P1(x,y) else P2(x,y); setpenwidth(10); line(0,y+100,windowwidth,y+100); Redraw; Sleep(500); x:=x+5; i:=i+1;until x>=windowwidth-20;<span>end.</span>
print(*(i for i in range(int(input()) + 1) if str(i * i).endswith(str(i))))