Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
aaa140
24.09.2021 17:10 •
Информатика
Дано натуральное число k. написать программу, которая по введенному числу k от 1 до 99 напишет фразу: ("мне,k,лет")
Ответ:
CrazyBananaa
01.10.2020 00:19
var k:integer;
begin
repeat
readln(k);
until(k>1) and (k<99);
writeln('мне ',k, 'лет');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kthjxrfqqq
23.09.2022 05:19
Программа для паскаля. составить программу, которая запрашивает у пользователя два целых числа и выводит квадрат суммы (а+b)^2 и сумму квадратов а^2+b^2 этих чисел....
Leha9202
23.09.2022 05:19
Сделать в паскале с условным оператором. определить температуру и вес вашего тела( вес тела любой брать) в фунтах и по шкале фаренгейта. 1 фунт=400 грамм переводить...
Domashka00
23.09.2022 05:19
Напишите программу( в паскале авс), которая находит нок (наименьшее общее кратное) двух чисел, введённых с клавиатуры....
Настя190411
28.10.2021 07:25
Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и находит сумму минимального и максимального элементов массива....
тигра36
30.09.2021 16:51
Как перевести число 243 в троичную систему счисления?...
LidaTetyorkina
30.09.2021 16:51
1. в какой системе счисления возможно 23+16 = 42? 2.в сс с некоторым основанием десятичное число 17 записывается в виде 101. укажите основание 3. укажите наименьшее...
Sdkhkazb
11.03.2022 21:39
Природными системами являются: лес сосна поле кровать население Москвы...
leshchenko1234
20.09.2021 05:17
Сделайте программу для Pascal ABC,которая заменит заглавные гласные буквы,в строчные(в тексте, который введём с клавиатуры)....
SalaevaDarina
09.03.2022 15:00
3. Для того, щоб на кнопці був напис Розв язання , потрібно написати таку команду: А. Button1.Text := Розвязання ; Б. Button1.Caption:= Розвязання ; В. Label1.Caption:=...
Mocket
28.09.2022 03:53
Дана программа. Определи тип лицензии для данной программы, выбрав ответ. Kaspersky Internet Security...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var k:integer;
begin
repeat
readln(k);
until(k>1) and (k<99);
writeln('мне ',k, 'лет');
readln;
end.