3 года назад

Помогите плиз. дан массив. Все его элементы умножить на последний элемент.решить при помощи паскаль.

Знания

Информатика

1 ответ:

Ия Леонидовна3 года назад

0 0

var

a:array[1..10] of integer;

i,b:integer;

begin

randomize;

for i:=1 to 10 do

read(a[i]);

for i:=1 to 10 do

b:=a[i]*a[10];

write(b);

end.

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

135,207, двоичная система числения

Настя20192018

Если нужно числа 135 и 207 перевести в двоичную систему то держи:

135 - 10000111

207 - 11001111

0 0

4 года назад

Помогите пожалуйста написать или на рисовать алгоритм проверки числа на четность

almaz9492

Var
i:integer;

begin
writeln('Введите число');
readln(i);
if ((i mod 2)<>0) then
writeln('Число нечетное')
else
writeln('Число четное');
end.

0 0

4 года назад

Выражение записано на языке Паскаль: sqrx−sqrty. Какая ошибка допущена? аргумент записан без скобок для обозначения переменных

Ujred [50]

Аргумент записан без скобок <span />

0 0

4 года назад

Маша рассказала Толе, что считает трехзначное число красивым, если в нём полусумма максимальной и минимальной по значению цифр р

VERNON Roshe

Ответ:

a = int(input())

if ((a // 100) + (a % 10)) / 2 == ((a // 10) % 10):

print("Вы ввели красивое число")

elif ((a // 100) + (a // 10) % 10) / 2 == (a % 10):

print("Вы ввели красивое число")

elif ((a % 10) + ((a // 10) % 10)) / 2 == (a // 100):

print("Вы ввели красивое число")

else:

print("Жаль, вы ввели обычное число")

Объяснение:

0 0

4 года назад

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

Нарисовать картинку машины через процедуры подпрограммы в Pascal

сергей221133 [5]

Uses graphabc;

begin    // Кузов
Rectangle(340,220, 540, 300);
// Багажник
Rectangle(140,140, 340, 300);
FloodFill(220, 220, clBrown); // Закразка кузова
FloodFill(460, 260, clGray); // Закразка багажника
// Дверь в кабину
Rectangle(220,180, 300, 260);
Circle(280, 220, 10); // Ручка двери
// Фара
Circle(140, 260, 10);
// Первое колесо
Circle(220, 340, 40);
// Второе колесо.
Circle(420, 340, 40);
// Дорога
Line(60,380, 560, 380);
end.

0 0

4 года назад