4 года назад

Назовите 4 признака объекта

Знания

Информатика

2 ответа:

Александр фукс [58]4 года назад

0 0

Цвет;Вкус;Скорость;Длина;Материал;Рост;Форма;Возраст;Окрас;Высота;Вес;Порода.

Минора4 года назад

0 0

Размер, цвет, форма, текстура.

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

Дано число, проверить сколько раз в него вмещается цифра 7. (Можно блок схему и программу, пожалуйста!)

D3US [62]

Задание указано некоректно. Надеюсь, вы имели в виду, сколько раз в заданное число можно вместить 7,то есть, сколько целых раз можно поделить на 7.

Код:

program school7;

Var a:Integer;

begin

Write('Введите число>> ');

ReadLn(a);

Write('В число ', a, ' цифра 7 вмещается ', int(a/7), ' раз(а)');

end.

0 0

4 года назад

Найти площадь треугольника по трем сторонам

ekaterina19800000

Program as;
var a,b,c,d,p,s:real;
uses crt;
clrscr;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
readln;
end.

0 0

4 года назад

Из ниже перечисленных является высказыванием завтра будет хорошая погода: а) завтра будет хорошая погода б) какое сегодня число?

2Х Мастер спорта

А)завтра будет хорошая погода

0 0

4 года назад

Помогитеее решиииить пожалуйста!!!Даны два массива по 9 элементов [13-53]. Найти попарно их сумму. Результаты положить в 3-ий ма

пкер

Var a,b,c:array[1..9] of Longint; i,k:longint;
begin
for i:=1 to 9 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
read(b[i]);
end;
for i:=1 to 9 do
begin
c[i]:=a[i]+b[i];
write(c[i],' ');
end;
<span>end.</span>

0 0

4 года назад

Program Z1; Var a, b, c, ab, ac ; integer; Begin Writeln ('Введите координаты А'); Readln (a); Writeln ('Введите координаты В')

Siska [149]

Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...

0 0

4 года назад