ДО ІТЬЬЬ БУДЬ ЛАСКАА ДУЖЕ СООЧНО ПОТРІБНО ІВ!!ДУЖЕ СООЧНО ПОТРІБНО Задача Ploscha Написати програму знаходження площі прямокутника

Question 1

Accepted Answer

a=float(input(Введіть довжину ))b=float(input(Введіть ширину ))def ploscha(a,b): return a*bprint(round(ploscha(a,b), 2))2 Вариант:a=float(input(Введіть довжину ))b=float(input(Введіть ширину ))print(Площа = , a*b)

Question 2

Ввести с клавиатуры два числа x и y .присвоить z значение большего из них,если х< 0 и меньшего если х> 0.

Accepted Answer

uses crt; begin x,y,z:integer; readln(x,y); if (x<0) then begin if (x>y) then z:=x; if (y>x) then z:=y; end else begin if (x>0) then begin if (x>y) z:=y; if (y>x) z:=x; end; write(z); end.

Question 3

Паскаль. дан целочисленный массив из 30 элементов заданный случайным образом. элементы массива могут принимать целые значения от 0 до 100 - учащихся за тест по информатике. составьте программу, которая позволяет найти и вывести количество учащихся, чья оценка за тест четная и больше 45 .

Accepted Answer

//PascalABC.NET 3.4.2 begin   var ar := arrrandom(30, 0, 100).Println;   ar.Where(x -> (x mod 2 = 0) and (x > 45)).Print; end.

Question 4

Вквадратной таблице, не содержащей отрицательных элементов, найдите корень квадратный из произведения диагональных элементов.

Accepted Answer

Program n1;Uses CRT;Const n=5;Var a: array[1..n,1..n] of integer; i,j: integer; k,p: real;beginClrScr;randomize;p:=1;For i:=1 to n do begin For j:=1 to n do begin a[i,j]:= random(10); write(a[i,j]:2); If (i=j)or(n-i+1=j) then p:=p*a[i,j]; end; writeln; end;k:=sqrt(p);Writeln(k:4:4);readlnend.

Question 5

10. даны два числа. если оба числа отрицательные и первое больше второго, то каждоеувеличьте в 2 раза, иначе увеличьте их на 2.составьте блок-схему.​

Accepted Answer

Смотри блок схему на оисунке

ДО ІТЬЬЬ БУДЬ ЛАСКАА ДУЖЕ СООЧНО ПОТРІБНО ІВ!!ДУЖЕ СООЧНО ПОТРІБНО Задача "Ploscha" Написати програму знаходження площі прямокутника

Информатика: новые вопросы