Помогите пожалуйста. Даю 30б.

Знания

Информатика

1 ответ:

Василий Кузнецов [21]4 года назад

0 0

Записывает количество разрядов числа, о-один, д - два, п- пять. Со словами таких операции проводить не может

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

Много баллов дам за решение..Треугольник задан координатами вершин, вычеслить периметр, площадь.вычеслить длин сторон, оформить

Semen3P

Program gt;
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
procedure dlinastoron(x1,y1,x2,y2:real;var b:real);
begin
b:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
procedure perimetr(a,b,c:real;var d:real);
begin
d:=a+b+c;
end;
procedure ploshad(a,b,c:real;var d:real);
var s:real;begins:=(a+b+c)/2;
d:=sqrt(s*(s-a)*(s-b)*(s-c));
end;
begin
readln(x1,y1,x2,y2,x3,y3);
dlinastoron(x1,y1,x2,y2,a);
dlinastoron(x1,y1,x3,y3,b);
dlinastoron(x3,y3,x2,y2,c);
perimetr(a,b,c,p);
ploshad(a,b,c,s);
writeln(a,' ',b,' ',c);
writeln(p);
writeln(s);
end.

0 0

4 года назад

Что будет выведено на экран после выполнения фрагмента программы: begin a:=1; b:=2; if(a>=1) and (b>=2) then n:=a+b else n

Spywer

ОТВЕТ
3
==============================

0 0

4 года назад

РЕШИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!! 1. Выполните действие: А) 1100011,2 — 10111,2; Б) 100001,2 + 111100,2; В) 103,8 + 147,8;

Олег кон [2K]

1-1,089,900б-211,101_4

0 0

4 года назад

Задача: Среди заданных чисел найти количество трехзначных чисел. Формат ввода: Элементы последовательности (целые числа в диапаз

Bibob

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
ReadSeqIntegerWhile(t->t<>0).Where(t->Abs(t).Between(100,999))
.Count.Println
end.

Пример
4492 13638 -4490 418 13985 -426 5805 -26574 28710 -378 17920 1886 -24200 0
3

0 0

4 года назад

Составьте программу которая выводит на экран значение выражения (a+1)n

O-Lesik

Dim a as double

dim n as double

dim c as double

a=(textbox1.text)

n=(textbox2.text)

c=(a+1)n

(textbox3.text)=c

0 0

4 года назад

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