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

String6. дан символ c, изображающий цифру или букву (латинскую или рус- скую). если c изображает цифру, то вывести строку «digit», если латин- скую букву — вывести строку «lat», если — вывести строку «rus». в паскале не могу сделать

👇
Ответ:
20031003veronika
20031003veronika
25.04.2023
Var c:char;
begin
write('Введите символ: ');
readln(c);
case c of
 '0'..'9'         :writeln('digit');
 'A'..'Z','a'..'z':writeln('lat');
 'А'..'Я','а'..'я':writeln('rus');
 else writeln('Другой символ');
 end;
end.

Пример:
Введите символ: П
rus
4,4(85 оценок)
Ответ:
fearlessaliss
fearlessaliss
25.04.2023
// FreePascal 3.0.0

program string6;
var
i: integer;
f: boolean;
R: array[1..33] of WideChar = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ь', 'ы', 'ъ', 'э', 'ю', 'я');
C: WideChar;
begin
f := False;
readln(C);
if IsNumber(C)
begin
writeln('digit');
f := True;
end
else
for i := 1 to 33 do
if R[i] = C then
begin
writeln('rus');
f := True;
break;
end;
if not(f) then
writeln('lat');
end.
4,8(57 оценок)
Открыть все ответы
Ответ:
NasFan
NasFan
25.04.2023

Написал на том, что было под рукой: 1C

Если Квартира > ЭтажейВДоме * КвартирНаЭтаже Тогда  

 Сообщить("Нет такой квартиры в доме, мало этажей!");

ИначеЕсли Квартира <= КвартирНаЭтаже Тогда  

 Сообщить("Живет на первом этаже");

Иначе

 ЖиветНа = Цел(Квартира / КвартирНаЭтаже);

 ОстатокЭт = Квартира%КвартирНаЭтаже;

 Если ОстатокЭт>0 Тогда  //

  ЖиветНа = ЖиветНа+1;

 КонецЕсли;

 Если ЖиветНа%2=0 И ЖиветНа=ЭтажейВДоме Тогда // это четный и последний

  ВыходитьНа = ЖиветНа-1;

 ИначеЕсли ЖиветНа%2=0 Тогда // четный в НЕчетный этаж

  ВыходитьНа = ЖиветНа+1;

 Иначе

  ВыходитьНа = ЖиветНа;

 КонецЕсли;

 Сообщить(" Выйдет на: "+ВыходитьНа);

КонецЕсли;

4,5(80 оценок)
Ответ:
superguluagina
superguluagina
25.04.2023
Для того, чтобы узнать в каком подъезде находится квартира, разделим ее номер на количество квартир в подъезде, на 36. Запомним частное и остаток от деления. Пусть, к примеру, нам дана квартира 85. Делим на 36. Получаем частное 2 и в остатке 13. 2 - это номер подъезда. Теперь разделим 13 на 4 (число квартир на этаже), запомним частное и остаток. В результате получим 3 и остаток 1. Значит, наша квартира на 3-м этаже, и если номера квартир идут слева направо, то квартира будет крайняя слева.

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