1. Информатика
  2. Напишите программу, которая

Напишите программу, которая проверяет правильность имени переменной в языке паскаль. имя может содержать только латинские буквы (заглавные и строчные), цифры и знак подчёркивания, но не может начинаться с цифры. входные данные на вход программы подаётся символьная строка, содержащая имя переменной. выходные данные программа должна вывести ответ 'yes', если строка представляет собой правильное имя переменной в языке паскаль, и 'no', если имя ошибочно. примеры входные данные abc123 выходные данные yes входные данные abc[a! выходные данные no pascal abc 1.8 с использованием множеств

скули скули    3   23.08.2019 14:50    22

Ответы
dima1025 dima1025  05.10.2020 14:47
Var s: string;
    i: integer;
    good: boolean;
begin
readln(s);

good := True;
if (s[1] in ['0'..'9']) then
  good := False
else
begin
  for i := 1 to length(s) do
    if not ((s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) or (s[i] in ['0'..'9']) or (s[i] = '_')) then
      good := False;
end;

if (good) then
  writeln('YES')
else
  writeln('NO');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
RTAKZM RTAKZM  29.08.2019 13:40
Написать программу вычисления стороны квадрата по заданной площади...
rufina1995 rufina1995  29.08.2019 13:40
Ввести число. если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10 ,...
PolinaSukova2 PolinaSukova2  29.08.2019 13:40
Вэлектронной библиотеке хранится 10000000 книг. для их удобного поиска решили ввести следующую систему обозначений - каждой книге присваивается идентификатор, состоящий...
Помагайтыыыы Помагайтыыыы  29.08.2019 13:40
ответьте. двадцать натуральных чисел формируются через генератор случайных чисел. найдите сумму четных чисел больших 6. составить алгоритм и программу...
mitrofanovas633 mitrofanovas633  29.08.2019 13:40
с р о ч н о задать массив, состоящий из 10 элементов, заполнить его любыми числами с клавиатуры и все его элементы: а) увеличить на число b б)уменьшить на последний элемент....
egorivanov2000 egorivanov2000  29.08.2019 13:50
Используя phyton ввести с клавиатуры символьную строку и заменить в ней все буквы а на б и все буквы б на а .( заглавные на заглавные и строчные на строчные буквы) пример:...
evgeniaberezka evgeniaberezka  29.08.2019 13:50
Напишите программу, которая в последоательности натуральных чисел оределяет сумму всех чисел, кратных 6 и оканчивающтхся на 2. программа получает на вход натуральные числа,...
jontfols999 jontfols999  29.08.2019 13:50
Автомобиль ехал t1 часов со скоростью v1 и t2 часов со скоростью v2. найдите среднюю скорость автомобиля...
kM4X1Mk kM4X1Mk  29.08.2019 13:50
Информационный объем текста в системе ascii на языке равен 1 кб. чему будет равен информационный объем того же текста в кодировке windows-1251? выберите один ответ: a. 1...
kirill1s kirill1s  29.08.2019 13:50
Написать в с++ 1)найти минимум из трех чисел a, b, c; 2)сравнить, ли первая и последняя цифры трехзначного целого числа....

Популярные вопросы