begin var (key, chrs) := ('сла', ',!?.'); var s := ReadString; foreach var w in s.Split(' ') do if w[^1] in chrs then Print(w[:^1] + key + w[^1]) else Print(w + key)end.
Объявляем переменные key и chrs. Присваиваем переменной key значение 'сла' – это кодовые символы, которые должны прибавляться к каждому слову, а переменной chrs – ',!?.' – это символы, заданные в условии задания в качестве возможных знаков препинания.
Объявляем переменную s, присваиваем ей строку, полученную в результате ввода с клавиатуры, с стандартного метода ReadString.
Далее идёт конструкция foreach, пробегаем по массиву, полученного в результате разбивки строки s на некие подстроки, используя пробел в качестве разделителя.
Для каждого элемента (условно обозначенного как w) делаем:
Если последний символ элемента входит в состав символов, указанных в переменной chrs, то выводим на экран все символы обозреваемого элемента, кроме последнего + кодовые символы (key) + этот последний символ. То есть, вставляем наши кодовые символы между словом и знаком препинания.Иначе, если последний символ элемента не входит в состав символов, указанных в переменной chrs, то выводим на экран сам этот элемент + кодовые символы. То есть, знака препинания нет и мы просто добавляем наши кодовые символы к слову.
Опять же стандартный метод – Print, автоматически добавляет пробел после вывода каждого значения (в нашем случае оно одно).
C++
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "RUS");
// первая задача
int c;
cout << "Введите число c: ";
cin >> c;
if (c % 2 == 0)
{
cout << "YES" << endl;
}
else
{
cout << "NO"<< endl;
}
//вторая задача
int a, b;
cout << "Введите число а: ";
cin >> a;
cout << "Введите число b: ";
cin >> b;
if (a > b)
{
a = a * 2;
cout << a << endl;
}
else
{
b = b * 2;
cout << b << endl;
}
//третья задача
int d;
cout << "Введите число а: ";
cin >> d;
if (d % 2 == 0)
{
d = d / 2;
cout << d << endl;
}
else
{
cout << 0 << endl;
}
return 0;
}
PascalABC.NET
begin var (key, chrs) := ('сла', ',!?.'); var s := ReadString; foreach var w in s.Split(' ') do if w[^1] in chrs then Print(w[:^1] + key + w[^1]) else Print(w + key)end.Объявляем переменные key и chrs. Присваиваем переменной key значение 'сла' – это кодовые символы, которые должны прибавляться к каждому слову, а переменной chrs – ',!?.' – это символы, заданные в условии задания в качестве возможных знаков препинания.
Объявляем переменную s, присваиваем ей строку, полученную в результате ввода с клавиатуры, с стандартного метода ReadString.
Далее идёт конструкция foreach, пробегаем по массиву, полученного в результате разбивки строки s на некие подстроки, используя пробел в качестве разделителя.
Для каждого элемента (условно обозначенного как w) делаем:
Если последний символ элемента входит в состав символов, указанных в переменной chrs, то выводим на экран все символы обозреваемого элемента, кроме последнего + кодовые символы (key) + этот последний символ. То есть, вставляем наши кодовые символы между словом и знаком препинания.Иначе, если последний символ элемента не входит в состав символов, указанных в переменной chrs, то выводим на экран сам этот элемент + кодовые символы. То есть, знака препинания нет и мы просто добавляем наши кодовые символы к слову.Опять же стандартный метод – Print, автоматически добавляет пробел после вывода каждого значения (в нашем случае оно одно).