Бан двумерный массив А[8, 4]. а)определите количество столбцов в нём; б)Определите количество строк в нём
Ответы
Program Vby_1;
uses crt;
var a,b,c:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.
Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.
Program Vby_3;
uses crt;
var s:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.
uses crt;
var a,b,c:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.
Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.
Program Vby_3;
uses crt;
var s:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Исходный объект , с которого создана модель, называется 1) копией 2) моделью 3) предметом 4) оригиналом
Автор: Olga_Vyacheslavovich1054
Средствами текстового редактора создать таблицу (отформатировать по образцу):
Автор: alanatan5757
запишите название элементов диаграммы.
Автор: lilit-yan
Какие типы блоков бывают? Опишите основные операции и их применения?
Автор: Альберт Луиза1595
решить 2 задание 2 вариант по информатике
Автор: mukbidc
Kak umnojit dvoichnie chisla 1011101 i 1001
Автор: Sergei248
uses crt;
var a,b,c:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.
Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.
Program Vby_3;
uses crt;
var s:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.