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

Составьте программу , которая выводит на экран числа кратные 2 и 7 в диапазоне от 2 до 120

👇
Ответ:
kazakov1206
kazakov1206
26.08.2022
Var k,m,n:longint;
begin
write('m n ? '); readln(m,n);
for k:=(m-1) div 7 + 1 to n div 7 do write(k*7:8); readln
end.
4,5(36 оценок)
Открыть все ответы
Ответ:
nightlovell15
nightlovell15
26.08.2022

#include <iostream>

#include <set>

using namespace std;

int main()

{

   string a, res;

   getline(cin, a);

   for(int i = 0; i < a.length(); i++){

      if((int)a[i] >= 65 && (int)a[i] <= 90) res += (char)(65 + int)a[i]) - 65) + 3) % 26));

      else if((int)a[i] >= 97 && (int)a[i] <= 122) res += (char)(97 + int)a[i]) - 97) + 3) % 26));

      else res += a[i];

   }

   cout << res;

   return 0;

}

Объяснение:

Алгоритм простой. Побуквенно считываем строку и если буква - элемент латинского алфавита - кодируем ее, иначе оставляем как есть.

P.s. Если ответ, жмякните на " " . Это мотивирует давать ответы дальше.

4,4(54 оценок)
Ответ:
XxXBulykXxX
XxXBulykXxX
26.08.2022
Program z1; 
Var i,n,a,b,c:integer;     
 m: array [1..1000] of integer;
Begin 
write('Введите кол-во чисел - '); 
readln(n);   
randomize;   
a:=0;   b:=0;   c:=0; 
 for i:=1 to n do 
begin   
m[i]:=random(100)-50;   
 write (m[i],' ');  end;    for i:=1 to n do    if (m[i]=0) then a:=a+1;      for i:=1 to n do    if (m[i]>0) then b:=b+1;      for i:=1 to n do    if (m[i]<0) then c:=c+1;  writeln;  writeln ('Кол-во нулей - ',a);  writeln ('Кол-во положительных чисел - ',b);  writeln ('Кол-во отрицательных чисел - ',c);End.
4,8(46 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ