4 года назад

Составьте !БЛОК СХЕМУ! и программу вычисления площади трапеции

Знания

Информатика

1 ответ:

Альбина13 [60]4 года назад

0 0

Uses crt;
var
a,b,h,S:real;
begin
writeln('Поиск площади трапеции через основание и высоту');
writeln();
write('Введи основание а = ');
readln(a);
writeln(); 
write('Введи основание b = ');
 readln(b); 
writeln();
write('Введи высоту h = '); 
readln(h);
S:=h*(a+b)/2;
writeln('Ответ: ',S);
end.

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

Сколько секунд потребуется модему, передающему сообщения со скоростью 28800 бит/с, чтобы передать 100 страниц текста в 30 строк

Сан Саныч Зибаров...

Скорость = 28800 бит/с 
объем информации= 60*30*100 = 180000байт = 1440000 бит 
время -это объем разделить на скорость -то есть 1440000/28800= 50с

0 0

4 года назад

Написать программы заполнения массива из 10 чисел: а) первыми десятью нечетными числами; б) случайными числами в интервале от 5

павел004 [14]

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=1.Step(2).Take(10).ToArray; a.Println;
var b:=ArrRandom(10,5,15); b.Println
end.

Тестовое решение
1 3 5 7 9 11 13 15 17 19
14 5 13 6 10 9 15 9 14 5

0 0

4 года назад

Помогите с задачей Вывести таблицу квадратов чисел от 0 до 2 с шагом 0,2. (Pascal)

ДанЗел23

var i:real;

begin

i:=0;

while i<=2 do

begin

writeln(i:4,'*',i,'=',i*i);

i:=i+0.2;

end;

end.

0 0

4 года назад

с клавиатуры вводят слово.Составить программу ,которая: а)определяет количество символов в нём б)проверяет,не совпадают ли перва

GirlKriss

uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln(length(s) ,' символов');

writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');

if (s[length(s)] = s[1]) then
begin
writeln('совпадают');
end
else writeln('не совпадают');
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');

end.

0 0

4 года назад

Когда вы утром выходили из дома, по телевизору передали прогноз погоды на предстоящий день, а именно температуру воздуха, скорос

pusha3 [17]

1) B
2) C
3) D
4) C
5) A

0 0

4 года назад