Ответ.
Задать вопрос!
Вход Регистрация
Задать вопрос!
Все категории
  • Компьютеры и интернет
  • Стиль и красота
  • Спорт
  • Работа и карьера
  • Строительство и ремонт
  • Города и страны
  • Искусство и культура
  • Путешествия и туризм
  • Образование
  • Общество и политика
  • Гороскопы, магия, гадания
  • Другое
  • Юридическая консультация
  • Фотография и видеосъемка
  • Товары и услуги
  • Наука и техника
  • Знакомства, любовь, отношения
  • Досуг и развлечения
  • Философия, непознанное
  • Бизнес и финансы
  • Авто и мото
  • Здоровье и медицина
  • Еда и кулинария
  • Животные и растения
  • Семья и дом
  • Темы для взрослых
  • Знания
Godis15
9 месяцев назад
5

Написать программу для решения задачи: даны 2 числа а и b. Увеличить а в 2 раза, если оно больше b, иначе b увеличить на 2. Составить блок-схему.

Знания
Информатика
Читайте также
ПОМОГИТЕЕЕ! 59 пунктов и лучшее решение будет,если будут пояснения №11. В зависимости от введённого пользователем возраста (от 1
Коля3425235645

1)

 

var
a: integer;

begin
writeln('Сколько вам лет?');
readln(a);
if a mod 10 = 1 then writeln('Вам ', a, ' год');
if a > 20 then //Если наш возраст, который больше 20, оканчивается на 2,3,4 то нам пишут "года")
if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года');
if a < 10 then //Если наш возраст, который меньше 10, оканчивается на 2,3,4 то нам пишут "года")
if (a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4) then writeln('Вам ', a, ' года');
if a > 4 then //Если нам от 5 до 19 лет, то нам пишут "лет")
if a < 20 then writeln('Вам ', a, ' лет');
if a > 20 then //Если наш возраст, который больше =20, оканчивается на 0,5,6,7,8,9 то нам пишут "лет")
if (a mod 10 = 0) or (a mod 10 = 5) or (a mod 10 = 6) or (a mod 10 = 7) or (a mod 10 = 8) or (a mod 10 = 9)
then writeln('Вам ', a, ' лет');
end.

 

2)

 

var
a: integer;
d: string;

begin
write('Введите сегодняшнее число '); readln(a);
write('Введите название месяца в именительном падеже '); readln(d);

if d = 'январь' then if a = 31 then writeln('Завтра будет 1 февраля') else writeln('Завтра будет ', a + 1, ' января'); //январь
if d = 'февраль' then if a = 28 then writeln('Завтра будет 1 марта') else writeln('Завтра будет ', a + 1, ' февраля'); //февраль
if d = 'март' then if a = 31 then writeln('Завтра будет 1 апреля') else writeln('Завтра будет ', a + 1, ' марта'); //март
if d = 'апрель' then if a = 30 then writeln('Завтра будет 1 мая') else writeln('Завтра будет ', a + 1, ' апреля'); //апрель
if d = 'май' then if a = 31 then writeln('Завтра будет 1 июня') else writeln('Завтра будет ', a + 1, ' мая'); //май
if d = 'июнь' then if a = 30 then writeln('Завтра будет 1 июля') else writeln('Завтра будет ', a + 1, ' июня'); //июнь
if d = 'июль' then if a = 31 then writeln('Завтра будет 1 августа') else writeln('Завтра будет ', a + 1, ' июля'); //июль
if d = 'август' then if a = 31 then writeln('Завтра будет 1 сентября') else writeln('Завтра будет ', a + 1, ' августа'); //август
if d = 'сентябрь' then if a = 30 then writeln('Завтра будет 1 октября') else writeln('Завтра будет ', a + 1, ' сентября'); //сентябрь
if d = 'октябрь' then if a = 31 then writeln('Завтра будет 1 ноября') else writeln('Завтра будет ', a + 1, ' октября'); //октябрь
if d = 'ноябрь' then if a = 30 then writeln('Завтра будет 1 декабря') else writeln('Завтра будет ', a + 1, ' ноября'); //ноябрь
if d = 'декабрь' then if a = 31 then writeln('Завтра будет 1 января') else writeln('Завтра будет ', a + 1, ' декабря'); //декабрь
end.

 

3)

 

var
a,b,c,x,y,z:integer;

begin
writeln ('Введите число, месяц и год рождения певрого человека');
write ('Число - ');readln(a);
write ('Месяц - ');readln(b);
write ('Год - ');readln(c);
writeln ('Введите число, месяц и год рождения второго человека');
write ('Число - ');readln(x);
write ('Месяц - ');readln(y);
write ('Год - ');readln(z);
if c>z then writeln ('Второй человек старше');//проверка одного условия
if c=z then//проверка 2х условий
if b>y then writeln ('Второй человек старше');//
if c=z then//проверка 3х условий
if b=y then //
if a>x then writeln ('Второй человек старше');// проверка для второго человека окончена

if c<z then writeln ('Первый человек старше');//проверка одного условия
if c=z then//проверка 2х условий
if b<y then writeln ('Первый человек старше');//
if c=z then//проверка 3х условий
if b=y then //
if a<x then writeln ('Первый человек старше');//

if c=z then//проверка на равенство возрастов
if b=y then
if a=x then writeln('Люди имеют одинаковый возраст');
end.

0 0
1 месяц назад
Как называется редактор в стиле "webpunk png"?
karavanskiy [70]
Photoshop,Gimp 2,На телефоны Glitchr,SLMMSK
0 0
1 месяц назад
Помогите пожалуйста! 1.что сохраняется при выкл. Компьютера ? 2.бес чего не может работать компьютер
warm44 [7]
2. Не грамотный вопрос. Он не может работать без электричества, процессора, материнской платы, блока питания
0 0
9 месяцев назад
Прочитать ещё 2 ответа
Как называется компьютер, обслуживающий узел связи и имеющий свой постоянный адрес в сети Интернет?а) Хост-компьютер.б) Сервер.в
Катерина Дмитриевна [15]
Тут б), это же явно.
0 0
11 месяцев назад
Сообщение записанное буквами из 32 символьного алфавита содержит 2000 символов. Какой объем информации ( в килобайтах ) оно несё
Михаил Денисов [6]

Смотря в какой кодировке.

Если кодировка КОИ-8, значит один символ кодируется, то есть весит 8 бит. И так всегда.

Значит:

2000символов×8бит=16000бит=16000:8=2000байта(так как что бы перевести биты в байты, нужно разделить кол-во битов на 8, а что бы перевести в килобайты, нужно ещё разделить и на 1024).Но тут в килобайты перевести нельзя. Невозможно.

размер сообщения в кодировке КОИ-8.

Если же кодировка Unicode, то это значит, что один символ кодируется, то есть весит 16 бит.

Значит:

2000символов×16бит=32000бит=32000:8=4000байт. Как и в первом случае, перевести тут в килобайты нельзя. Невозможно.

размер сообщения в кодировке Unicode

0 0
26 дней назад
Смотрите также:
  • Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает
    12·1 ответ
  • Помогите решить, а то не понимаю в этом вообще дам 44 балла 1. Выбрать функцию, составить блок-схему и программу: • для вычисл
    5·1 ответ
  • Как называется процесс, который происходит либо в собственной памяти(внутренняя память), либо на внешних носителях(внешняя памят
    5·1 ответ
  • Письменно решить задачи: 1. Строка текста содержит 50 символов. Какой объем памяти (сколько ячеек) займет эта строка, если для к
    6·1 ответ
  • Срочно помогите !!!!! даю 20 балловс 18-20
    7·2 ответа
  • НЕ ПОНИМАЮ ЧТО НАДО ЗДЕЛАТЬ
    6·1 ответ
  • Составьте блок схему алгоритма вычисления выражения а=(х+7)^2+sin3x и запишите его на алгоритмическом языку
    5·1 ответ
  • Первое изображение 128-цветное , размером 4*4 пикселя , второе изображение 512-цветное , его размер 14*24 пикселя . Во сколько р
    7·1 ответ
  • Кто нибудь знает сказки про единицы измерения информации???
    5·1 ответ
  • зачеркните лишний предмет 1.арфа балалайка виолончель скрипка флейта 2.барка джонка рикша пакетбот ял 3.мусоргский моцарт турген
    7·1 ответ
Добавить ответ
Вход
Не зарегистрированы? Пройти быструю регистрацию
Регистрация
Вход Регистрация
Задать вопрос!