4 года назад

Написать программу, которая будет вычислять периметр треугольника, если его стороны дробные числа.

1 ответ:

саянск4 года назад

0 0

// PascalABC.NET 3.2

begin
var a,b,c:real;
Write('Введите длины сторон треугольника: '); Read(a,b,c);
Writeln('P=',a+b+c)
end.

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

Напишите программу, которая в последовательности целых чисел определяет количество трехзначных чисел, кратных 7. Программа получ

Alyana

uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;

write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.

0 0

1 год назад

У водолея есть два кувшина 9 и 5 литров. Как ему отмерить 3 литра?

Ларо4ка

Заполняншь 1 кувшин в котором 9 литров водой и затем из него переливаешь воду в кувшин 5 литровый (заполняешь его до верха)в 1 кувшине останется 4 литра т.к. 9-5=4 , а потом не знаю

0 0

3 года назад

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

Помогите с вопросами, плиз

елера

4. ответ С
5. ответ С
6. ответ А
7.ответ В
8.ответ D

0 0

4 года назад

Excel Если число не помещается в ячейке таблицы, то оно выводится на экран в виде А. целого числа В.десятичных дробей С.процента

BlazeSHOW

Ответ A если не подходит то D

0 0

4 года назад

Написать программу в Pascal, которая сортирует массив и находит количество различных чисел в нём

Likssaa [50]

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

begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
a.Sort; a.Println;
Writeln('Кол-во разных чисел равно ',a.Distinct.Count)
end.

Пример
n= 13
-1 1 3 -2 8 -9 9 -1 -8 -8 9 -9 2
-9 -9 -8 -8 -2 -1 -1 1 2 3 8 9 9
Кол-во разных чисел равно 9

0 0

4 года назад