С клавиатуры вводят слово.Составить программу,которая определяет,чётно или нечётно количество символов в слове
10-11 класс
|
var
s:string;
begin
write ('Slovo - ');readln(s);
if odd(length(s))=false writeln ('Chetno') else writeln ('Nechetno');
readln;
end.
Другие вопросы из категории
соответственно t1, t2 и t3 ч. Написать программу определяющую, какой путь прошел пешеход? 2. Написать программу, вычисляющую путь, пройденный лодкой, если ее скорость в стоячей воде v км/ч, скорость течения реки v1 км/ч, время движения по озеру t1 ч, а против течения реки – t2 ч.
1. Напишите программу, которая находит минимальное и максимальное среди четных положительных чисел, записанных в файле и выводит результат в другой файл. Учтите что таких числе может вообще не быть.
сдачей вступительных экзаменов в институт Миша предполагал, что:
1) если он
сдаст математику, то информатику он сдаст только при условии, что не завалит диктант;
Читайте также
последняя буквы слова
в)выводт на экран первый,второй и последний символы
г)определяет,чётно или нечётно количество символов в нём
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
28 15 10
Наибольшее число: 28
2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
Пример:
Введите число:
100
Сумма = 500
Буду очень признателен за помощь.
использования. Пример: Введите число: 100 сумма = 5050
"5":
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.