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

Хелп 1) Дана переменная a. Пользователь вводит a с консоли. Необходимо
выводить переменную a, и уменьшать ее, пока она больше 0.
2) Дана переменная a. Пользователь вводит a с консоли. Необходимо
выводить переменную a, только если она нечетная, и увеличивать ее, пока
она меньше 1000.
3) Вывести квадраты нечетных чисел от 1 до 100

👇
Ответ:
alekshaino
alekshaino
02.04.2020

Объяснение:

#include <iostream>

using namespace std;

int main()

{

   //1 - 2 задания

   setlocale(LC_ALL, "Russian");

   system("color A");

   int A,a;

   cout << "Введите число: ";

   cin >> a;

   while (a--)

       cout << a << ' ';

   cout << endl;

   //2

   cout << "Введите число: ";

   cin >> A;

   A -= !(A & 1) + 2;

   while ((A += 2) < 1000)

   {

       cout << A << ' ';

   }

}

//

//3 задание

#include <iostream>

using namespace std;

int main()

{

   for (int i = 1; i < 10; i += 2)

       cout << i * i << ' ';

}

4,7(91 оценок)
Открыть все ответы
Ответ:
katyakot2299
katyakot2299
02.04.2020
Program n1;
const n=20;
var a: array[1..n] of integer;
i,kn,ko,kp: integer;
function max(a,b,c: integer): string;
begin
max:=' ';
if (a>b) and (a>c) then max:='0 больше'
else if (b>c) and (b>a) then max:='отрицательных больше'
else if (c>a) and (c>b) then max:='положительных больше'
else if (a=c) and (c=b) then max:='количество всех элементов одинаковое'
else if a=b then max:='0 и отрицательных поровну'
else if b=c then max:='положительных и отрицательных поровну'
else if a=c then max:='0 и положительных поровну'
else max:='ошибка';
end;
begin
randomize;
write('исходный массив: ');
kn:=0;
kp:=0;
ko:=0;
for i:=1 to n do
begin
a[i]:=random(3)-1;
write(a[i],' ');
if a[i]>0 then kp:=kp+1
else if a[i]<0 then ko:=ko+1
else kn:=kn+1;
end;
writeln;
write(max(kn,ko,kp));
end.
4,7(36 оценок)
Ответ:
ТОХА2287
ТОХА2287
02.04.2020
1. есть число n.  пускай n=123. что будет, если разделить его на 10? получится 12,3. то есть 12 - целая часть, а 3 - остаток. далее снова делим на 10. 1,23. и в последний раз: 0,123. целая часть =0. на этом останавливаемся. а сколько раз выполнили деление? 3. вот и ответ. теперь запишем на паскале: как видно из вышенаписанного, нужно продолжать выполнять действия, пока целая часть не равна 0. то есть while n> 0 do и у нас есть некоторый счетчик итераций, значение которого и будет являться ответом. а тело цикла: n div 10 (целочисленное деление) inc(k) (увеличение счетчика) вторая: как я понял, нужно просто вывести на экран то, что должно получиться? нужно в цикле пройти по каждому символу. если он равен "*" (if s[i] = '*' then), ничего не делать. иначе вывести его два раза (write(s[i], добавить данные в начало файла нельзя. нужно либо записывать в новый, либо перезаписывать исходный (предварительно считав все в память)
4,4(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ