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

Вывести на экран все трёхзначные числа кратные трём и заканчивающиеся на один

👇
Ответ:
David228666333
David228666333
23.11.2022
# Код на ruby 2.2.3p173
for i in 100..999
    p i if i%3==0 and i%10==1
end

Вывод
111
141
171
201
231
261
291
321
351
381
411
441
471
501
531
561
591
621
651
681
711
741
771
801
831
861
891
921
951
981
4,8(2 оценок)
Ответ:
Angelina937
Angelina937
23.11.2022
Код на QB:

FOR i = 102 TO 999 STEP 3
    IF i MOD 10 = 1 THEN PRINT i
NEXT I
4,4(49 оценок)
Открыть все ответы
Ответ:

ответ на задание

Объяснение:

Проведите исследование и узнайте, как работают туристические агентства. Проанализируйте, как можно улучшить

их работу.

Используя эти данные, придумайте концепцию туристического межгалактического агентства.

Будьте внимательны!

Агентство должно быть уникальным и открывать новый

рынок – голубой океан.

Пропишите стратегию развития вашего агентства, проиллюстрируйте вашу стратегию.

Подумайте, что именно вы будете предлагать вашим клиентам и почему они должны прийти именно к вам.

4,4(87 оценок)
Ответ:
жепа564
жепа564
23.11.2022
// PascalABC.Net 3.0, сборка 1052
const
  Rus=['А'..'Я'];
var
  s:string;
  i,k,t:integer;
  c,c1,tc,sc:char;
  f:array['А'..'а'] of byte; // 'а' - это для 'Ё'
  ch:array['А'..'а'] of char;
begin
  Write('Введите строку: '); Readln(s);
  for c:='А' to 'а' do begin f[c]:=0; ch[c]:=c end;
  k:=0;
  for i:=1 to Length(s) do begin
    c:=UpCase(s[i]);
    if c in Rus then begin Inc(f[c]); Inc(k) end
    else
      if c='Ё' then begin Inc(f['а']); Inc(k) end;
  end;
  Writeln('Количество русских букв равно ',k);
  { сортировка массива со счетчиком количества букв }
  for c1:='А' to Pred('а') do
  for c:='А' to Pred('а') do
    if f[c]<f[Succ(c)] then begin
      t:=f[c]; tc:=ch[c]; sc:=Succ(c);
      f[c]:=f[sc]; ch[c]:=ch[sc];
      f[sc]:=t; ch[sc]:=tc
    end;
  Writeln('Частота встретившихся букв');
  c:='А';
  while (c<='а') and (f[c]>0) do begin
    if ch[c]='а' then ch[c]:='Ё';
    Writeln(ch[c],' - ',f[c]);
    Inc(c)
  end;
end.

Тестовое решение:
Введите строку: Когда я был парнишкой, носил я брюки клёш
Количество русских букв равно 33
Частота встретившихся букв
К - 4
И - 3
Л - 3
О - 3
А - 2
Б - 2
Н - 2
Р - 2
Ш - 2
Я - 2
Г - 1
Д - 1
Й - 1
П - 1
С - 1
Ы - 1
Ю - 1
Ё - 1
4,4(45 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ