fyz070504
15.04.2022 18:28

Информатика 8класс паскаль написать программу для вывода на экран приветствия, и выполнение условия, что есть два числа которые больше 45 и 7

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nikinouston342
14.01.2020 01:48

Короче, с выводом не очень понял, поэтому будет 4 варианта, выбери сам

Обязательная часть программы:

import datetime

year, month, day = int(input('Введите год: ')), int(input('Введите месяц: ')), int(input('Введите день: '))

date = datetime.date(year, month, day)

delta = datetime.timedelta(days=1)

date = str(date + delta).split('-')[::-1]

Тут нужно выбрать одну из строк, будем рассматривать на примере 31 декабря 2019 года(то, что стоит после решетки и саму решетку не копируй:

Вариант 1:

print(*date)     # 01 01 2020  --- это вывод(обычный)

Вариант 2:

print(int(date[0]), int(date[1]), date[2])    # 1 1 2020 (без ведущих нулей)

Вариант 3:

print(str(int(date[0])) + str(int(date[1])), date[2]) #11 2020(без нулей и пробелов)

Вариант 4:

print(str(date[0]) + str(date[1]), date[2])      # 0101 2020(без пробелов)

0,0(0 оценок)
Ответ:
Znatokiys
09.01.2023 01:49

Pascall

uses crt,graphABC;

var w:char;

   xc,yc,c,x,y,i:integer;

begin

hidecursor;

repeat

clrscr;

writeln('Выберите фигуру');

writeln('1-треугольник');

writeln('2-квадрат');

writeln('3-круг');

writeln('4-ромб');

writeln('5-эллипс');

writeln('другое - выход');

read(w);

xc:=windowwidth div 2;

yc:=windowheight div 2;

setpencolor(clRed);

case w of

'1':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   moveto(xc+round(150*cos(pi/2)),yc-round(150*sin(pi/2)));

   for i:=1 to 4 do

    begin

     x:=xc+round(150*cos((i-1)*(2*pi/3)+pi/2));

     y:=yc-round(150*sin((i-1)*(2*pi/3)+pi/2));

     lineto(x,y);

    end;

   readln

   end;

'2':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   rectangle(xc-150,yc-150,xc+150,yc+150);

   readln

   end;

'3':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   circle(xc,yc,150);

   readln

   end;

'4':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   moveto(xc-100,yc);

   lineto(xc,yc-150);

   lineto(xc+100,yc);

   lineto(xc,yc+150);

   lineto(xc-100,yc);

   readln

   end;

'5':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   ellipse(xc-150,yc-100,xc+150,yc+100);

   readln

   end;

end;

until not(w in ['1'..'5'])

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота