Решите плиз надо !!!!!!

Знания

Информатика

1 ответ:

Р-Денис [457]4 года назад

0 0

var P,a,h: integer;

S: real;

begin

a:=12;

h:=5;

S:=1/2*a*h;

P:=3*a;

writeln('Площадь треуголника = ',S);

writeln('Периметр треуголника = ',P);

end.

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

Двоичное число 1111111101 в десятичной системе счисления записывается как:

grtgrt [99]

1111111101 = 1*2^9+1*2^8+1*2^7+1*2^6+1*2^5+1*2^4+1*2^3+1*2^2+1*2^0=
=1021

0 0

4 года назад

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

Как в paint наложить фигуру на фигуру

RusActors

В новом файле выделяешь - ctrl+c, на фигуре, которой надо жмёшь ctrl+v
???
профит

0 0

4 года назад

Помогите Определите значения целочисленных переменных х, y, z после выполнения фрагмента алгоритма: x:=15; y:=3; z:= x; x:=z/y;

ananasik [35]

Х:=15
у:=3
z:=15
x:=15:3=5
y:=5

x=5
y=5
z=15

0 0

4 года назад

Написать программу в C++ задание на фото

Наталья Горкавлюк

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
 int n=0;
 string a[5]={"очень плохо","не удовлетворительно",
 "удовлетворительно","хорошо","отлично"};
 do { cout<<"оценка: "; cin>>n; }
 while ( n<1 || n>5 );
 cout<<a[n-1]<<endl;
 system("pause");
 return 0;
}

0 0

1 год назад

Дано x - целое, шестиразрядное число. Посчитать количество цифр в этом числе больше 5. Делать в паскале

сер гей

Program ff;

var
x, counter:integer;
begin
write('Введите число: ');
readln(x);
while x > 0 do
begin
if (x mod 10) > 5 then counter:=counter+1;
x := x div 10;
end;
writeln('Цифр больше 5: 'counter);
readln();
end.

0 0

4 года назад