В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
tuiyty
tuiyty
11.12.2020 19:22 •  Информатика

3. Какие инструменты относятся к группе инструментов модификации? ​

Показать ответ
Ответ:
avritsevich0116
avritsevich0116
21.02.2021 01:11
//1
var A, B, i: integer;
begin
  write('Введите A и B: '); readln(A, B);
  for i := A to B do
    if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i);
end.

//2
var
  A, B, i, k: integer;
begin
  write('Введите A и B: '); readln(A, B);
  for i := A to B do
    if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then
    begin
      writeln(i);
      k := k + 1;
    end;
    if k = 0 then writeln('Таких чисел нет.');
end.

//3
var sum, i, n: integer;
begin
  write('Введите количество предметов: '); readln(n);
  for i := 1 to n do
  begin
    readln(n);
    sum := sum + n;
  end;
  writeln('Общая масса = ', sum);
end.

//3 с другим циклом
var sum, n: integer;
begin
  writeln('Введите 0 для завершения ввода.');
  repeat
    readln(n);
    sum := sum + n;
  until n = 0;
  writeln('Общая масса = ', sum);
end.
0,0(0 оценок)
Ответ:
SpoonKeeper
SpoonKeeper
21.02.2021 01:11
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var (a,b):=ReadInteger2('Границы интервала [A,B]:');
  for var n:=a to b do
    if (Abs(n mod 10)=3) and (n mod 3=0) then Print(n)
end.

Пример
Границы интервала [A,B]: -50 142
-33 -3 3 33 63 93 123

№2

begin
  var (a,b):=ReadInteger2('Границы интервала [A,B]:');
  var k:=0;
  for var n:=a to b do begin
    var m:=Abs(n);
    if (m mod 10=9) and (m mod 100<>99) and (m>=100)
        and (m<=999) then begin Print(n); k+=1 end
    end;
  if k=0 then Writeln('Таких чисел нет') 
end.

Примеры
Границы интервала [A,B]: -200 160
-189 -179 -169 -159 -149 -139 -129 -119 -109 109 119 129 139 149 159

Границы интервала [A,B]: 52 101
Таких чисел нет

№3

begin
  var n:=ReadInteger('Введите количество предметов:');
  var m:=0.0;
  for var i:=1 to n do begin
    Write('Маcса предмета № ',i,': '); m+=ReadReal;
    end;
  Writeln('Масса груза равна ',m)
end.

Пример
Введите количество предметов: 5
Маcса предмета № 1: 24.62
Маcса предмета № 2: 8.1
Маcса предмета № 3: 132
Маcса предмета № 4: 24.5
Маcса предмета № 5: 52.7
Масса груза равна 241.92
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота