Задать вопрос!

Задать вопрос!

Все категории

3 года назад

15

Пожалуйста я ничего не понимаю

Пожалуйста я ничего не понимаю

Информатика

2 ответа:

Лилия923 года назад

0 0

Тут все на да и нет сводиться. Слева Нет Справа да.

Адилбек3 года назад

0 0

Надо составить типо как этл

Читайте также

Дан массив а состоящий из 20 элементов найти сумму элементов в

Bagirova [1]

<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var a := ArrRandom(20, -50, 50);

a.Println;

var b := a.Sum;

Println('Сумма элементов равна', b)

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Найти чему равно значение переменной S после выполнения цикла K:=0; S:=30 while k<=18 do begin K:=k+3 S:=s+2*k end; writeln(s

Элджей111

Будет выведено значение "198".

0 0

4 года назад

Составить программу нахождения дискриминанта квадратного трёхчлена а.в,c - вводимых с клавиатуры

ilikus

Program ZZZ;
var a, b, c : integer ;
begin
WRITELN ('Введите значения коэффициентов квадратного трехчлена a,b,c');
readln (a,b,c);
D:= b*b - 4*a*c;
WRITELN ('Дискриминант квадратного трехчлена равен ',D);
end.

0 0

4 года назад

PascalABC Создайте программу, которая будет:* Предлагать пользователю выбрать число;* В зависимости от выбранного числа на экран

Халявин [14]

uses GraphABC;

var n:integer;

begin

writeln('Введите номер фигуры (1-квадрат, 2-треугольник, 3-круг):');

readln(n);

setwindowsize (640,480);

setpencolor (clBlue);

setpenwidth (4);

case n of

1: begin

setwindowtitle ('квадрат');

rectangle(200,100,400,300);

end;

2: begin

setwindowtitle ('треугольник');

Line(300,50,30,400);

Line(30,400,570,400);

Line(570,400,300,50);

end;

3: begin

setwindowtitle ('круг');

circle(300,200,120);

end;

end;

end.

0 0

4 года назад

Прочитать ещё 2 ответа

Найти площадь треугольника с помощью Pascal.

tiestorik

Program Trykutnyk;
uses Crt;
const a=5; b=3.6; c=4.2;
var p,s: real;
begin
clrscr;
p:=a+b+c;
writeln('p=', p:5:2);
p:=p/2;
s"=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=', s:5:2);
writeln('Имя Фамилия');
readln
end.

0 0

4 года назад