uses DrawMan;
var i:integer;
begin
Field(22,14);
for i:=1 to 4 do
begin
ToPoint(6,7+i);
   PenDown;
   OnVector(5,-5);
   OnVector(5,5);
   OnVector(i,-i);
   OnVector(-i,-i);
   OnVector(-5,5);
   OnVector(-5,-5);
   OnVector(-i,i);
   OnVector(i,i);
   PenUp;
end;
end.

0 0

3 года назад

разгадайте кроссворд "поянтия как форма мышления"

zzaya

Понятия как форма мышления - логика подходит?

0 0

4 года назад

Написать программу на с++, которая считывает текст из файла и выводит на экран только строки, не содержащие двузначных чисел. +1

Полина - 15 [4.2K]

#include <stdio.h> int main() { FILE* in = fopen("input.txt", "r"); char s[100], b = 1, i = 0; short c; do { c = getc(in); if (c >= '0' && c <= '9') { if ((b = !b) && /* */ (c = getc(in)) == ' ' || c == '\t' || c == '\r' || c == '\n' || c == EOF) { while (c != '\n' && c != EOF) c = getc(in); i = 0; } } else if (c == '\n') { for (b = 0; b < i; b++) putchar(s[b]); putchar(c); putchar('\n'); i = 0; b = 1; } else { s[i++] = c; b = 1; } } while (c != EOF); fclose(in);

0 0

4 года назад

Перевести числа из десятеричной системы счисления в двоичную систему счисления и обратно 25 13

Анастасия Несмелова [67]

25/2=12 (1) 12/2=6 (0) 6/2=3 (0)3/2=(1)(1)
25=11001
11001= 2^4+2^3+1=25
13/2=6 (1) 6/2=3 (0) 3/2=(1) (1)
13=1101
1101=2^3+2^2+1=13

0 0

4 года назад