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

Паскаль. кто первый подредактирует код, чтоб работал, тому 30 ! первому! программа : калькулятор var a,b,c,d: integer; begin; writeln('1 - сумма'); writeln('2 - разность'); readln(d); case d of; 1: writeln('напишите числа'); readln(a,b): c: =a+b; writeln('сумма =',c): 2: writeln('напишите числа'); readln(a,b): c: =a-b; writeln('разность=',c): end; end.

👇
Ответ:
zzzXXXD
zzzXXXD
10.02.2021
Var
  a,b,c,d:integer;
begin
  writeln('1 - Сумма');
  writeln('2 - Разность');
  readln(d);
  case d of
  1: begin
    writeln('Напишите числа'); readln(a,b);
    C:=a+b; writeln('Сумма =',c)
    end;
  2: begin
    writeln('Напишите числа'); readln(a,b);
    C:=a-b; writeln('Разность=',c)
    end
  end
end.
4,7(11 оценок)
Ответ:
Caшa2220
Caшa2220
10.02.2021
Program qwer;
uses crt;
var a,b,c,d:integer;
Begin
writeln('1 - Сумма');
writeln('2 - Разность');
readln(d);
case d of
1: begin
writeln('Напишите числа');
readln(a, b);
c := a + b;
writeln('Сумма = ',c);
end;
2: begin
writeln('Напишите числа');
readln(a, b);
c := a - b;
writeln('Разность = ',c);
end;
end;
end.
4,8(6 оценок)
Открыть все ответы
Ответ:
// PascalABC.NET 3.0, сборка 1073
const
  m=5;
  n=4;
  a:array[1..m] of real=(2,-7.1,3.2,-5.4,6.9);
  b:array[1..n] of real=(8.1,3.2,-6.4,-3.5);
  k=3;
var
  i,j:integer;
  sk:real;
  s:array[1..m,1..n] of real;
begin
  Writeln('Массив S');
  for i:=1 to m do begin
    for j:=1 to n do begin
      s[i,j]:=a[i]*b[j];
      Write(s[i,j]:7:2)
    end;
    Writeln
  end;
  sk:=0;
  for i:=1 to m do sk:=sk+s[i,k];
  Writeln('Сумма элементов столбца ',k,' равна ',sk)
end.

Результат выполнения программы:
Массив S
  16.20   6.40 -12.80  -7.00
 -57.51 -22.72  45.44  24.85
  25.92  10.24 -20.48 -11.20
 -43.74 -17.28  34.56  18.90
  55.89  22.08 -44.16 -24.15
Сумма элементов столбца 3 равна 2.56
4,5(72 оценок)
Ответ:
swatcamgg
swatcamgg
10.02.2021

1. почистить изнутри 2. если есть непригодные детали заменить 3. по надобности можешь повысить оперативы, но нужно, чтобы планки памяти были одинаковые! 4 по надобности можешь добавить ssd памяти, поставив новый диск, но он должен быть такой же как и старый. если вирус снеси винду и через флэшку и биос поставь новую, предварительно кинуть на другую флэшку нужную информацию.

p.s по моим подщетам на почистить детали-530руб. оператива kingston 8гб 2 штуки 290$ ssd память терабайт-299$, флэшка или диск с виндоус 10 pro version с полной поддержкой-125$ итого: 43370руб. это примерная цена, я заходил месяц назад на магазин и это без доп деталей! в $: 722,83$

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