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

Введите с клавиатуры целое число в диапазоне 1-999. а)определите количество знаков в числе; б)определите четность числа; в)выведите описание числа,например,"нечетное однозначное число","четное двухзначное число" и тд. пример ввода: 347 пример вывода: нечетное трехзначное число

👇
Ответ:
Type num=1..999;
Var x:num; k,y:integer;
Begin
 write('x=');
 readln(x);
 y:=x;
 k:=0;
 while y<>0 do
   begin
    y:=y div 10;
    k:=k+1;
   end;
 if (x mod 2)=0 then
   write('Четное ')
  else
   write('Нечетное ');
 if k=1 then write('однозначное ')
  else
   if k=2 then write ('двухзначное ')
    else
     write('трехзначное ');
 writeln('число');
End.
4,7(80 оценок)
Открыть все ответы
Ответ:
секрет93
секрет93
15.05.2022

Надо установить 32-bit java и всё заработает. Я так сделал и всё. Я ввожу правильный (:11111) адрес сервера. Q: Я не могу двигаться при входе в игру, что делать?. зайти - ввожу ke. org:12317 и сначало долго висит надпись Вход и после этого - Подключение. Здравствуйте! Я установил последнюю версию Minecraft совсем недавно. Но я не могу. Никак! Делайте пароли запоминаемые и не очень большие. Когда я играю на серверах с мини-играми, они долго грузятся. 2.1 Загрузка и запуск игры; 2.2 Вход в игру; 2.3 Управление и интерфейс. После объединения аккаунта Minecraft с общим аккаунтом.

4,6(85 оценок)
Ответ:
girlvikak
girlvikak
15.05.2022

2) Вопрос не понял, но думаю правильно ответил:

var a,b,c,d :int64;

begin

readln(a);

b := a -1;//число до  

c := a +1;//число след.

writeln('Число до: ',b,' Число след.: ',c);

end.

3)

var a,b,c,d :int64;

begin

readln(a);//Кол-во учеников

readln(b);//Кол-во яблок

c := b div a;//Яблок каждому ученику

d := b - (a * c);//Яблок в корзине  

writeln('Яблок каждому: ',c,' Яблок осталось в корзине: ',d);

end.

4)

var a,b,c,d:int64;

begin

readln(a);//Число

b := a mod 10;//остаток от деления

c := a div 10;//деление без остатка

d := c mod 10;//остаток от деления

writeln('При последнее число: ',d,' Последнее число: ',b);

end.

5)

var a,b,c,d:int64;

begin

readln(a);//Автобус за день  

readln(b);//Кол-во дней

c := a * b;

writeln('Автобус проехал: ',c,' (км)');

end.

6)

var a,b,c,d:int64;

begin

readln(a);//Путь муравья

b:= a div 1000;//м

c:= (a - (b*1000)) div 10;

//см

d:= a - (b*1000+c*10);

//мм

writeln('Путь муравья: ',b, ' (м) ',c,' (см) ',d,' (мм)');

end.

7)

var a,b,c,d:int64;

begin

readln(a);//Грань куба

b := a*a*a ;

writeln('Объем куба: ',b, ' м^3');

end.

8)

var a,b,c,d,g:real;

begin

readln(a,c,d,b);//Числа

g:=(a+c+d+b) / 4 ;

writeln('Cреднее арифметическое: ', g);

end.

9)

var a,b,c,d:real;

begin

readln(a,b,c);//Учеников в кадом классе

d:= (a+b+c)/ 2;

writeln('Кол-во парт для 3 классов: ', d);

end.

Объяснение:Все программы написаны на Pascal.

Капец много задач за 5б)))

4,4(14 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ