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

Написать которкий рассказ о компьютере (7-8 предложений). 2 класс, гармония

👇
Ответ:
pika9999777
pika9999777
18.02.2022
Компьютеры плотно связаны с нашей жизнью, они повсюду, у каждого дома есть хотя бы 1. Когда-то они были пригодны лишь для вычисления чего-либо, но сегодня их используют для решения и многих бытовых проблем, например: печать текста, соединения с сетью "интернет", в целях образования или общения... . Без него нашу жизнь уже не представить, ведь он делает её куда проще. Со временем он будет ещё больше сливаться с нашей жизнью, к добру это или к худу.
На большее фантазии не хватило
4,5(14 оценок)
Открыть все ответы
Ответ:
katevina
katevina
18.02.2022
var
  y: System.uint64; //Большая цЫфра же и положительная
  x, i: byte; //Нет смысла большие числа брать слишком, переполнение будет

begin
  readln(x); //Принимаем число...
  y := 1;
  i := 1;
  repeat
    y *= i; //...и умножаем такое-то количество раз
    i += 1;
  until (i > x);
  if (y = 0) then //Выводим, предусмотрев переполнение
    writeln('Слишком большая цЫферка')
  else
    writeln(y);
end.

Int64 - это то же самое, что LongInt, а Uint64 (unsign long int) - длинное число без знака, при правильном использовании позволяет записывать в переменную числа, в 2 раза превышающие максимум Int64
4,8(5 оценок)
Ответ:
frankovskaaalin
frankovskaaalin
18.02.2022
uses
  GraphABC;

var
  x, y: integer;
  s: array of string;
  b: GraphABC.Point;

begin
  s := System.IO.File.ReadAllLines('in.txt');
  foreach a: string in s do
  begin
    X := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[0]);
    Y := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[1]);
    if not (b.IsEmpty) then
      GraphABC.LineTo(X, Y)
    else
    begin
      GraphABC.MoveTo(X, Y);
      b := new Point(x, y);
    end;
    DrawCircle(x, y, 10);
  end;
  LineTo(b.X, b.Y);
end.

Код, конечно, вырвиглазный, зато работает и прочитать его относительно легко:)

Содержимое файла in.txt (для теста)

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