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

Паскаль программа 1) посчитать в цикле сумму квадратов чисел (число возвести в квадрат и добавить к сумме от предыдущего шага) от одного до десяти. 2) посчитать в цикле количество четных чисел от 1 до 50 (признак четности числа i mod 2 = 0. если число четное, то увеличить переменную j на 1 (j=j+

👇
Ответ:
danya166
danya166
12.03.2023
1. Вот так для чего-то решают в школе...

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016

var
  i,j,s:integer;
begin
  // задание 1
  s:=0;
  for i:=1 to 10 do s:=s+i*i;
  Writeln(s);
  // задание 2
  j:=0;
  for i:=1 to 50 do
    if i mod 2=0 then j:=j+1;
  Writeln(j)
end.

Результат
385
25

А вот так можно это решить по-нормальному за минуту.

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
  Writeln(1.To(10).Select(i->i*i).Sum); // задание 1
  Writeln(Range(2,50,2).Count) // задание 2
end.

Результат
385
25
4,8(80 оценок)
Открыть все ответы
Ответ:
joker231341
joker231341
12.03.2023
Const
  n = 10;
var
  a: array[1..n] of integer;
  i, j, t: integer;
  flag:boolean;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := random(101)-50;
    Write(a[i]:4)
  end;
  Writeln;
  i:=1;
  repeat
    flag:=true;
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
    Inc(i);
  until (i>n-1) or flag;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
 -32  -7   2   2  50 -33   1  31   4 -16
Отсортированный по возрастанию массив
 -33 -32 -16  -7   1   2   2   4  31  50
4,6(33 оценок)
Ответ:
Loler57ùö
Loler57ùö
12.03.2023

Microsoft Еxcel -1979 жылы екі экономист студент Дэн Бриклин және Боб Френкстон үй тапсырмасын тез орындауға көмектесетін және уақытты үнемдейтін әдіс ойлап табуды шешті. олар тарихта бірінші рет электронды кесте бағдарламасын жазып, оны Visible Calculator сөзінен қысқартылған VisiCalc (Көрсеткіш калькулятор) деп атады. сондықтан барлық электрондық кестелер бағдарламасы, оның ішінде Excel программасы Дэн мен Бобтың арқасында жүзеге асты. IBM және Macintosh компьютерлерінде жұмыс істейтін, ең озық үлгілерді ала отырып, бүгінгі заман талабына сай жасалған, электрондық кесте құрастыратын қолданбалы программа. Excel-дің соңғы нұсқаларында график тұрғызу, күрделі функциялар арқылы есеп-қисап жүргізу және бірнеше жұмыс кітаптарымен қатар жұмыс атқару сияқты мүмкіндіктер кеңінен қолданылады. Кестелік құрылымды құжаттармен жұмыс істеуге арналған кең таралған құралдардың бірі Microsoft Excel. Ол сандық мәліметтермен жұмыс істеу үшін негізделген.

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