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

Соператора паскаля for вывести на экран: 1) все четные числа из диапазона от a до b, кратные трем (a 2) все двузначные числа, в которых старшая цифра отличается от младшей не больше чем на 1; 3) все трехзначные числа, в которых хотя бы две цифры повторяются.

👇
Ответ:
relax217
relax217
07.02.2023
1)
Var i,a,b:longint;
Begin
    read(a,b);
    for i:=a to b do
    if (i mod 3=0) then write(i,' ');
    writeln;
End.

2)
Var i:longint;
Begin
    for i:=10 to 99 do
    if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
    writeln;
End.

3)
Var i,s,f,t:longint;
Begin
    for i:=100 to 999 do
    begin
        f:=i div 100;
        s:=i div 10 mod 10;
        t:=i mod 10;
        if (f=s) or (f=t) or (s=t) then write(i,' ');
    end;
    writeln;
End.
4,4(3 оценок)
Открыть все ответы
Ответ:
H3RURG
H3RURG
07.02.2023

1. Окончание срока действия триальной версии (следует приобрести лицензионную копию продукта, а если она была приобретена - переактивировать, обратившись за в техподдержку (адреса и телефоны см. в мини-форуме во Эта надпись появляется тогда, когда вы открываете документы, созданные в более ранних версиях редактора, например, в Word 2003. В этом случае не используются новые возможности редактора, обеспечивая режим совместимости разных версий.

Нужно преобразовать документ в формат Office 2007. Тогда эта надпись исчезнет, но при открытии преобразованного документа в более ранних версиях редактора возникнут проблемы при редактировании, либо уже при открытии документа.

Чтобы преобразовать документ, щелкните по кнопке Office и выберите команду Преобразовать. Откроется диалоговое окно, предупреж дающее о последствиях такого преобразования. Если вы подтвердите преобразование, то заменит / сохранит текущий документ в новом формате.

Если кнопка "Преобразовать отсутствует" - следует сохранить две версии одного документа: одна для старых редакторов, другая в новом формате. Это делается стандартно через выбор команды Сохранить как... .

3. Возможно, сработала защита документа (Вкладка - "Рецензирование" - "Защитить документ" - "Отключить защиту").

4,5(47 оценок)
Ответ:
katyaibadova
katyaibadova
07.02.2023
//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.
4,5(40 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ