Паскаль. катя купила в магазине n груш. сможет ли она разделить их поровну между k подругами (n и k ввести с клавиатуры)? оператор цикла с предусловием количество груш количество подруг ответ 12 4 да 14 5 нет

Решение на C. Переведи на синтаксис паскаля :)

#include <stdio.h>

int pearCount;

int friendsCount;

int main(int argc, const char * argv[]) {

printf("Количество груш: ");

scanf("%i", &pearCount);

printf("Количество подруг: ");

scanf("%i", &friendsCount);

if (pearCount % friendsCount != 0) {

printf("Количество груш '%i' Количество подруг '%i': нет\n", pearCount, friendsCount);

} else {

printf("Количество груш '%i' Количество подруг '%i': да\n", pearCount, friendsCount);

}

return 0;

}

Не "теранарный", а тернарный оператор.
Есть во многих языках программирования, зря не указали, какой Вам надо.

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('День недели (1- Пн, 2- Вт, ... 7- Вс:');
  Writeln(n<6?'Рабочий день':n=6?'Суббота':'Воскресенье')
end.

Примеры (предполагается без проверки корректность ввода)
День недели (1- Пн, 2- Вт, ... 7- Вс: 4
Рабочий день

День недели (1- Пн, 2- Вт, ... 7- Вс: 6
Суббота

День недели (1- Пн, 2- Вт, ... 7- Вс: 7
Воскресенье

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
  var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
  Writeln(s) // вывод...
end.

Пояснения.
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при

Пример
А роза упала на лапу Азора
А роза на лапу Азора