М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
larionxam
larionxam
29.01.2021 08:21 •  Информатика

13. Даны значения переменных х и у: х = 5, y = 10. Спрогнозируйте конечные значения этих переменных после выполнения последо-
вательности действий: z = y – 2; у = x; х= Z. Дайте оценку полученных значений переменных x, y, z.​

👇
Ответ:
Pitbull2015
Pitbull2015
29.01.2021

z=8, y=5, x=8. Вроде так

4,8(6 оценок)
Открыть все ответы
Ответ:
elenak22
elenak22
29.01.2021
Program array15numbers;
var a:array [1..15] of integer; b:array [1..15] of real; i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля}
writeln(a[i]); {чтобы увидеть созданный массив}
end;
writeln(); {нужен, чтобы сделать отступ}
for i:=1 to 15 do
begin
if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления}
begin
b[i]:=a[i]*3;
end
else
begin
b[i]:=a[i]/2;
end;
writeln(b[i]);
end;
end.

Остались вопросы? - спрашивай в комментах.
Нужно более подробное объяснение - пиши в лс vkcom/ilyahard
4,7(35 оценок)
Ответ:
Luna013
Luna013
29.01.2021
Program triangle;
var Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
function findlong(x1, y1, x2, y2:real):real;
var x,y,z:real;
begin
findlong:=sqrt(abs(sqr(x2-x1)+sqr(y2-y1)));
end;
begin
writeln('Введите координаты вершины А');
readln(Ax,Ay); {ввод через пробел}
writeln('Введите координаты вершины B');
readln(Bx,By);
writeln('Введите координаты вершины C');
readln(Cx,Cy);
AB:=findlong(Ax,Ay,Bx,By);
BC:=findlong(Bx,By,Cx,Cy);
CA:=findlong(Cx,Cy,Ax,Ay);
writeln('AB=',AB,' BC=',BC,' CA=',CA);
end.

Если остались непонятки или нужно более подробное объяснение, то пишите в комментарии, а лучше в лс (vkcom/ilyahard)
4,4(70 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ