Составить для Чертёжника алгоритм рисования квадрата со сторонами, параллельными осям координат, если известны координаты его двух вершин: (3,2) и (7,2).
сместиться в точку (3, 2)опустить перосместиться на вектор (0, 4)сместиться на вектор (4, 0)сместиться на вектор (0, -4)сместиться на вектор (-4, 0)поднять перо
кон
В документе есть одно лишнее действие: сместиться в точку (0, 0). Уберите его в своей работе. Благодарю за понимание.
Var ar:array[1..n] of integer; //массив дней i,k:integer; sr:real; begin k:=0; //счётчик превысивших for i:=1 to n do begin readln(ar[i]); //вводим дни sr:=sr+ar[i]; //заодно вычисляем сумму дневных температур end; sr:=sr/n; {делим сумму на количество дней, получаем среднюю температуру} for i:=1 to n do if sr<ar[i] then inc(k); {если температура некотрого для выше средней, увеличиваем счётчик} writeln('Средняя температура=',sr,', за неделю ', k,' дней превысили эту температуру'); end.
Пример ввода: 1 2 ... 7 Пример вывода: Средняя температура=4, за неделю 3 дней превысили эту температуру
int sover (int n) { int sum = 0; for (int i = 1; i<=n/2; i++) if (n%i==0) sum+=i; if (sum==n) return 1; else return 0; } int main() { int n; printf ("N = "); scanf ("%d",&n); if (sover(n)==1) printf ("Sovershennoe"); else printf ("Ne sovershennoe"); printf("\n"); system ("PAUSE"); return 0; }
2) #include <stdio.h> #include <stdlib.h>
int main() { for (int i = 1; i<=5; i++) { for (int j = 1; j<=5-i+1; j++) printf ("%d ",5+i-1); printf ("\n"); } system ("PAUSE"); return 0; }
Использовать Чертежник
алг квадрат
нач
сместиться в точку (3, 2)опустить перосместиться на вектор (0, 4)сместиться на вектор (4, 0)сместиться на вектор (0, -4)сместиться на вектор (-4, 0)поднять перокон
В документе есть одно лишнее действие: сместиться в точку (0, 0). Уберите его в своей работе. Благодарю за понимание.