Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Правильно ли написана программа? дана последовательность из 50 символов. В ней есть слова, которые могут содержать от 3 до 8 букв. Слова отделяются друг от друга одним или двумя пробелами. Найти слова, у которых первая буква слова входит в слово хотя бы еще раз. Вывести найденные слова на экран. var s: string; c, bc: integer; iw, dp: boolean; fch: char; begin write('строка? '); readln(s); for c :=... https://www.cyberforum.ru/ pascalabc/ thread454448.html	Составьте программу вывода в левой части экрана изображения пушки Pascal ABC Составьте программу вывода в левой части экрана изображения пушки. В правой части экрана случайным образом появляется и исчезает мишень. Нажатием клавиши Enter производится выстрел из пушки. Момент попадания фиксируется в виде взрыва. Предусмотрите возможность перед выстрелом изменять скорость полета снаряда с индикацией на экране ее значения.
Pascal ABC Часть программы на вывод таблицей Добрый день. Помогите написать кусочек программы для вывода на экран таблицы вида \| количество итераций \| x1 \| x2 \| x3 \| ...\| xn \| точность \| 1 2 3 4 ... n https://www.cyberforum.ru/ pascalabc/ thread454426.html	Pascal ABC В каждой строке матрицы заменить знак максимального по модулю элемента на противоположный. Дан двумерный массив. В каждой строке замените знак максимального по модулю элемента на противоположный. const zmax=10; type temp=arrayof integer; var n, k, u, h:integer; procedure vvod (var x:temp;var nsize, hsize:byte); https://www.cyberforum.ru/ pascalabc/ thread454354.html
Вывести значение логического выражения, заданного в виде строки S. Pascal ABC Вывести значение логического выражения, заданного в виде строки S. Выражение определяется следующим образом ("T" - True, "F" - False):<выражение> ::= T \| F \| And (<выражение>,<выражение>) \| Or (<выражение>,<выражение>) S = 'Or (And(F,Or(And(F, F),T)), T)'	Pascal ABC Посчитать, сколько элементов из множеств Т и М совпадают https://www.cyberforum.ru/ pascalabc/ thread454297.html Заданно некоторое множество M и множество T такого же типа. Посчитать сколько элементов из множеств Т и М совпадают
Pascal ABC Функция read в середине программы не считывает данные с клавиатуры Запускал с отладчиком, проверял - программа доходит до read( answer ); { строка 23 } но не запрашивает ввод. Чтобы убедиться в этом, введите как только запустится программа введите любое ненатуральное число program first; uses System; var N, a, b, i: integer; function getNaturalInt( requestStr: String ): integer; var x: integer; entered: boolean; https://www.cyberforum.ru/ pascalabc/ thread454238.html	Определение характеристик одномерного массива Pascal ABC Ввести последовательность в одномерный массив и найти начальные и конечные номера подпоследовательностей элементов, сумма кото*рых равна заданному числу А. При написании программы использовать функцию с передаваемыми параметрами. Последовательность состоит из 30 чисел, индикатором окончания последовательности является число 0. Число 0 не обрабатывать.
Pascal ABC Необходимо решить задачи типа булиан с 9-15 https://www.cyberforum.ru/ pascalabc/ thread454139.html Uses PT4; var a,b,c: Integer; z: boolean; begin Task('boolean9'); ReadLn(a,b,c); z:=(a) and (b); WriteLn(z); end.	Pascal ABC Как проверить число на чётность? https://www.cyberforum.ru/ pascalabc/ thread454133.html Uses PT4; var a,b,c: Integer; z: boolean; begin Task('boolean8'); ReadLn(a,b,c); z:=(a) and (b); WriteLn(z); end.
Pascal ABC Почему выдаёт ошибку? Uses PT4; var a,b,c: Integer; z: boolean; begin Task('boolean6'); ReadLn(a,b,c); z:=(a<b) and (b<a) and (c>b); WriteLn(z); end.	Pascal ABC Нахождение минимального элемента массива https://www.cyberforum.ru/ pascalabc/ thread454081.html 1. Написать подпрограмму нахождения минимального элемента массива A. 2. Два простых числа называются «близнецами», если они отличаются друг от друга на 2 (например, 41 и 43). Напечатать все пары «близнецами» из отрезка, где n – заданное натуральное число больше 20.

Puporev

Почетный модератор

64304 / 47599 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

28.02.2012, 15:56

Сложить два числа, как две строки (25 + 25 = 2525) - Pascal ABC - Ответ 2535747

28.02.2012, 15:56. Показов 3783. Ответов 13

Метки (Все метки)

Ответ

Pascal

uses crt;
var n,m,k:integer;
begin
repeat
write('Введите число от 1 до 21474 n=');
read(n);
until (n>0)and(n<=21474);
m:=n;
k:=1;
while m>0 do
 begin
  m:=m div 10;
  k:=k*10;
 end;
n:=k*n+n;
write(n);
end.

Вернуться к обсуждению:
Сложить два числа, как две строки (25 + 25 = 2525) Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.02.2012, 15:56

Готовые ответы и решения:

Как сложить два плюс два? если оба числа символьные?
Не могу сложить два числа в символьном виде, что бы получить третье (как сумма двух первых),...

Как сложить две строки
Здравствуйте, помогите присоединить строки. Например, в A.sName= A, а в A.sName=В. Тогда как...

Как сложить два числа
Привет, есть элемент <input type="hidden" id="offset" value="20">, требуется изменить значение:...

Как сложить два числа?
не получается сложить два числа, они просто стоят друг за другом Private Sub Button1_Click(ByVal...

	28.02.2012, 15:56

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.02.2012, 15:56

Помогаю со студенческими работами здесь

Как сложить два числа
как сложить два числа в с++

Как сложить два числа на masm?
.486 .model flat, stdcall option casemap: none include /masm32/include/windows.inc include...

Как сложить два числа в паскале
Как сложить два числа в паскале? Я работаю в паскале в первый день, даже не могу складывать ((((

Как сложить два числа на битовом уровне?
Помогите срочно надо

Наверх