тахирович_Игорь581
?>

Дана программа:Program Primer;VarN, result : real;Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((2+N)*5); Writeln ('sqr((2+N)*5)', result:8:0); Readln;End.Запусти Паскаль, введи данную программу, получи результат, если N=5.​

Информатика

Ответы

Васенкова204

#include <iostream>

#include <cstring>

#include <string>

#include <sstream>

#include <ctime>

#include <cstdlib>

 

char MyAge(char*);

using namespace std;

 

int main()

{

   setlocale(LC_ALL,"rus");

 

   char str_result;

   char str1[20];

   cout << "Введите дату рождения в формате - число/месяц/год" << endl;

   cin >> str1;

 

    MyAge(str1);

 

   return 0;

}

 

char MyAge(char*str1)

{

 

   char day[3], month[3], year[5];

   int age;

   int a = 2021;

   //char str2[100];

   for(int i = 0; i < *str1; i++)

       if(str1[i] == '/')

           str1[i] = ' ';

   istringstream ss(str1);

 

   (ss >> day).get();

   (ss >> month).get();

   (ss >> year).get();

       age = atoi(year);

       age = a - age;

   ostringstream str2;

   str2 << "Лет - " << age << " Месяцев - "<< month << " Дней - " << day;

 

   cout << str2;

}

Объяснение:

from datetime import date

def calculate_age(born):

   today = date.today()

   try:  

       birthday = born.replace(year=today.year)

   except ValueError: # raised when birth date is February 29 and the current year is not a leap year

       birthday = born.replace(year=today.year, month=born.month+1, day=1)

   if birthday > today:

       return today.year - born.year - 1

   else:

       return today.year - born.year

Начало это си а конец питон

Lazar
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=Range(1,ReadInteger,2);
  Writeln('S=',s.Sum,', П=',s.Aggregate(BigInteger(1),(i,j)->i*j))
end.

Пример
2017
S=1018081, П=41003146156503973951387230159955303747025133177308045511939711380049285936831854002506402266312956353673356191660497260050048407767456771658853041963632528210363444619891161953241396829852516221070722729481708118915240746993193657502899271781677228008565294510213216611900385572033538298383898276842136689466860892250973909048642357231842344733224927512429041805150383192236110739671653572172534585589678846579990165279636099252876842067904084020683637609495974057838353222190356556272528490424700585390890299972726579431412489074890200391130480639707092710189135514633433273333423650932561836213021755525455319742717662746273963809055678207901452155071624880336122774844145644638220704517508542500058666464069611039242911302866508033996016811447261225475230397936645236025463758706438002893575299691882827728929641104769030206646566596029108950442520411846952825395607214295131021592371711132413422532196167011749779157190407825418444457411396661551036268908400405816810879561932179497731977280144260643681539901420993095228077595383861488073857216465675022938483911851493095951891286859133595538356949569394858272151164039994291248341691701047747518227566914454622504712330635333719569666538980536667965220503586554960080844112977597948786914483625497937929541124026275776642713159637885069818204703080091168970066633753822353585211033537877702937052567083191597258285400336896147441497677747659951559408296163386352319764780403871655221308911526245251746673682651418122472796308910597745022033473679921986831790342351361744493472356131898220884395126168043958325049137419184834738094927951453777893527178019401550636464040087025451231084604994698991743688866415917598880518809631695769163435608801918432208785254542641403764924254573564804837279588255945283069216739437514498489305283075649042439928225953058454953341542990345707478676949894630405886924972647315400907351221280233026830236633053561256089747039907293014543919098819645878988961157708030997309771482210431420057259364038967336963513192823968030510976303454939547849481899665764122262149498054836845943462527782974293847355620537004180294596962343224064567971728034874832638873085152807212836880552534043149502030405109806971186035576149566350948793640615020232116079429724077026433648942183453927310496695853125976954691004845522144639228512230631447779035358306537808480258127426072758931627363909268547185886609072523644534012007668436821704610141492057148082187088723329678288942319700004758890858991371305853166823376675038348055035061979674857747657127371205441276370498634612948942405143039727583703571729420485794412594659346741995193391322237405955707954475264826868525384237465817151326660983758526542430383804011557647693841385141770328880907765662865732661503901105394290812668026335043953605771259752210187358625707817100895618471955477524112457344783026138728398485154246475882511280275366516434587538242340087890625

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дана программа:Program Primer;VarN, result : real;Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((2+N)*5); Writeln ('sqr((2+N)*5)', result:8:0); Readln;End.Запусти Паскаль, введи данную программу, получи результат, если N=5.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ivstigres65
pechyclava
Rakitin
sde19755511
missmorozova2
andr77716
kireevatatiana
sakh2010kprf7
Andrei_Mariya
ylia89
jgaishun756
Дил1779
shurshin6975
sleek73
karpachevamarina