помогитеее. паскаль.дано слово.заменить пять последних символов кодами этих символов
10-11 класс
|
program gt;
var a,b:string;
l,p,i:longint;
begin
readln(a);
l:=length(a);
b:=copy(a,1,l-5);
for i:=l-4 to l do
begin
p:=ord(a[i]);
b:=b+inttostr(p);
end;
a:=b;
write(a);
end.
Другие вопросы из категории
...........................................................
1.Скорость доступа внутренней памяти
а) быстрый доступ
б) медленный доступ
............................................................
2. Скорость доступа внешней памяти
а) быстрый доступ
б) медленный доступ
.............................................................
3. Средний объём внутренней памяти
а) средний объём от 10 до 30 Гбайт
б) средний объём от 32 до 128 Мбайт
..............................................................
4. Средний объём внешней памяти
а) средний объём от 10 до 30 Гбайт
б) средний объём от 32 до 128 Мбайт
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти
авторов или правообладателей ПО специального назначения системное ПО Текст вопроса
Каталогом называется место на диске имя и содержащее
Выберите один ответ: только определённые файлы список программ, составленных пользователем информацию о файлах (имя, расширение, дата последнего обновления) файлы и другие каталогисодержат 5 страниц текста?
2. На предприятии имеется 9 автомобилей ГАЗ, 1 автомобилей ЗИЛ, 9 автомобилей КаМАЗ, 4 автомобилей MAN. Какое количество информации несет сообщение о выезде с территории автомобиля каждого вида?
point for the console application.
//
#include "stdafx.h"
#include "stdio.h"
//#include "math.h"
using namespace std;
int main ( )
{
float *a;
int i,n;
printf("n=");
scanf("%i",&n);
a=(float*)malloc(N*sizeof(float));
for( i=0; i<=n-1;i++ )
{
printf("a[%i]= ",i );
scanf("%i",&a[i]);
}
for (i=0; i<=N-1; i++)
{
if (a[i]<0)
{
printf("oshibka\n");
}
else
{
if (a[i]/2==0)
{
printf("chetnoe \n");
}
else
{
printf("nechetnoe\n");
}
}
}
return 1;
}
Читайте также
последняя буквы слова
в)выводт на экран первый,второй и последний символы
г)определяет,чётно или нечётно количество символов в нём
Дана строка, содержащая слова, разделенные одним пробелом. Напечатать все слова, отличные от последнего слова.
дано слово. вывести на экран его к-й символ
а.4) Дано предложение ( S) подсчитать количество символов (а).Помогите решить пожалуйста, очень срочно нужно. Прошу((((