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

Создать в PascalABC программу, содержащую 5 различных графических примитивов, координаты в графических примитивах выразить относительно переменных Х и Y.
Program avto;
Uses crt,GraphABC;
Var x,y:integer;
Begin
X:=300; y:=200;
SetPenColor(clgray);
Circle(x+10,y+50,20); //колесо
..
End.

👇
Открыть все ответы
Ответ:
lizagolovashko
lizagolovashko
04.11.2022

1. когда установившиеся пары танцующих притиснули всех к стене, он, заложивши руки назад, глядел на них минуты две внимательно (=времени

2. и весьма часто, сидя на диване, вдруг, совершенно неизвестно из каких причин, один, оставивши свою трубку, а другая работу (при каком только она держалась на ту пору в руках, они напечатлевали друг другу такой томный и длинный поцелуй( в продолжение его можно бы легко выкурить маленькую соломенную сигарку. =условия; определит.

3. последние слова понравились манилову, но в толк самого дела он все-таки никак не вник и вместо ответа принялся насасывать свой чубук так сильно (до какой что тот начал наконец хрипеть, как фагот.

4. она сразу уснула (то произошло вследствие так что на мой вопрос я услышал только её ровное дыхание.=следствия.

5. я пришёл к тебе затем, чтобы всё объяснить.=цели

6. и чем темнее становилось на улице, тем ярче сияли на небе звёзды.=сравнения

7. дорога была грязная (несмотря на хотя дождь прошёл ещё вчера вечером =уступки

4,6(100 оценок)
Ответ:
grkhkt
grkhkt
04.11.2022

Паскаль.

 

Немного не понятно: от 1 до 10  это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку

 

program jjj;

var a: array [1..10] of integer; i,summa,proizv:integer;

begin

for i:=1 to 10 do begin

   Writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

For i:=1 to 10 do begin

                              if a[i] mod 2=0 then summa:=summa+a[i] else

                                                       proizv:=proizv*a[i];

                         end;

Writeln(summa,'   ',proizv); readln;

end.

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