Написать программы, выполняющие данные . для всех числовых типов данных использовать целочисленный тип. 1.написать программу, которая считает количество секунд в часе.пользователь вводит количество часов, а программа в ответ выводит сколько это секунд. 2.написать программу, которая считает угловой коэффициент прямой, проходящей через точки а и в. пользователь вводит последовательно координаты точек, а программа выводит угловой коэффициент по формуле k=ув-уа/хв-ха. 3.написать программу, которая генерирует случайное трёхзначное число и выводит само число, сумму цифр , произведение цифр.
Ответы
Var summa,k,i: integer; nechet: boolean; begin summa: =0; for i: =2 to 77 do begin nechet: =true; for k: =2 to trunc(sqrt(i)) do begin if i mod k = 0 then begin nechet: =false; break; end; end; if nechet then summa: =summa + sqr(i) end; writeln('summa=',summa); end.
Один раз я с семьей решили поехать в лес. (суда ты пишешь что в лесу был пикник ну или что-то другое и пишешь что ты туда взял(а) но это не обязательно)) . и в лесу была узкая тропинка я пошла по ней , а потом за ним была большая дверь, которая вела вела в прекрасный сад.в саду была речка и много деревьев, я прогулялась по саду.и в саду я нашла очки и я посмотрела по сторонам но никого не было. (потом ты пишешь суда что я узнала что это очки времени и я куда то попала и все удачи в школе если не то извини
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
