составте программу,которая из слов рама и шина составляет и выводит слово машина
10-11 класс
|
Program mashina;
Uses crt;
var s1, s2, s3: string;
begin clrscr;
write('s1 = ');
readln(s1);
write('s2 = ');
readln(s2);
writeln;
s1:=copy(s1,3,2);
writeln('s3 = ',s1+s2);
readln ;
end.
Другие вопросы из категории
вести пользователь в компьютер за одну минуту в кодировке Windows? Кодировке Unicode?
1) конкретный номер host-компьютера в сети нижнего уровня иерархии
2) сеть, на нижнем уровне которой находится адресуемый компьютер
Пример оформления решения:
Число Кубы
1 1
3 27
5 1257 3439 729
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
Начало программы:
1. var a,b,c:string;
2. begin;
3. writeln('Введите строку a');
4. readln(a);
5. writeln('Введите строку b');
6. readln(b);
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.