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

Программа по информатике, написать программу чтобы на экран выводились числа квадрата и кубы чисел от 1000 до 1

👇
Ответ:
79869106698
79869106698
09.01.2021

на java

public class Prog {

  public static void main(String[] args) {

     for (int i = 1000; i >= 1; i--) {

        System.out.println(i + " * " + i + " = " + i * i);

        System.out.println(i + " * " + i + " * " + i + " = " + i * i * i);

        System.out.println();

     }

  }

}

4,7(28 оценок)
Открыть все ответы
Ответ:
kotkat2014
kotkat2014
09.01.2021

2.Корневые волоски находятся на всем протяжении корня.

3.Клетки корневого чехлика недолговечны.

4.Поступление воды и минеральных солей происходит только в зоне всасывания.

5.Зона всасывания находится между зоной роста и проводящей зоной.

6.Лист – единственный орган растения, в котором происходит фотосинтез.

7.Устьичные клетки не имеют хлорофилла.

8.Почка – это зачаточный побег.

9.Стержневая корневая система имеет один корень.

10.Придаточные корни развиваются из корешка зародыша.

11.Докажите, что луковица видоизмененный побег.

4,4(75 оценок)
Ответ:
llGeexyll
llGeexyll
09.01.2021
Вариант 1
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   for i:=1 to length(str) do begin
     if (str[i]='А')or (str[i]='а') then a:=a+1;
     if (str[i]='Б')or (str[i]='б') then B:=b+1;
   end;
   if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.

вариант 3
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   i:=1;
   while i<=length(str) do begin
    if (str[i]='А')or (str[i]='а') then delete(str,i,1);
    i:=i+1;
    end;
   write(str);
      end.
4,8(5 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ