Сначала суток секунд (n-целое).найти количество полных минут с чала суток.

👇

Ответ:

sambovladikvladik

16.02.2022

Задача выполнена на языке программирования Pascal.
Var time, minute: integer;
Begin
Read (time);
minute:= time div 60;
Writeln (minute);
End.

4,5(82 оценок)

Открыть все ответы

Ответ:

DashaLatysheva1

16.02.2022

а) for, так как наша переменная, которая будет управлять циклом(как принято i ) будет принимать значения от 0 до 9, если начинать цикл с 0. Мы создаем переменную result и помещаем внутри цикла следующее выражение: result += 1/(i + 1). На выходе получим результат данного выражения.

б) В данном случае, можно использовать либо for range based, где выражение цикла выглядит так for (const auto & grade : grades), либо while с условием пока не дойдем до конца списка, зависит какой вид списка мы используем. Я считаю больше подходит for.

в) Думаю for range-based, либо обычный for.

г) ответ как и в б, можно использовать либо for ranged base, либо while, если значения аргументов содержатся в массиве, то тогда for range-based. Если например, тестирование происходит с пользовательского ввода, то тогда удобнее было бы использовать while.

4,5(33 оценок)

Ответ:

t22422

16.02.2022

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

uses graphABC;

function f(x:real):=6*Power(6*sqr(x-2),1/3)/(x*x+8);

begin
(var w,var h):=(1000,600);
SetWindowSize(w,h);
// поле для графика в окне
(var xLeft,var yLeft):=(50,50);
(var xRight,var yRight):=(w-xLeft,h-yLeft);
// интервалы по осям
(var ax,var bx,var hx):=(-12.0,12.0,1.0);
(var ay,var by,var hy):=(0.0,3.0,0.5);
// масштабы по осям
var mx:=(xRight-xLeft)/(bx-ax);
var my:=(yRight-yLeft)/(by-ay);
// точка начала координат графика
var x0:=xLeft+Trunc(abs(ax)*mx);
var y0:=yRight-Trunc(abs(ay)*my);
// рисование координатных осей
Line(xLeft,y0,xRight+10,y0);
Line(x0,yLeft-10,x0,yRight);
SetFontSize(12); SetFontColor(clBlue);
TextOut(xRight+15,y0-10,'X');
TextOut(x0-4,yLeft-30,'Y');
SetFontSize(8); SetFontColor(clGreen);
// рисование засечек
var s:string;
for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,num.ToString)
    end;
for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,num.ToString)
    end;
    TextOut(x0-10,y0+10,'0');
// собственно график
var xi:=ax;
while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

Побудувати графік функції: f(x)=(6∛(6(x-2)²))/(x²+8 )в паскалі