1 год назад

Составить програму на паскале.Дано натуральное число,приписать к нему такое же число!

1 ответ:

Алиса02024 [118]1 год назад

0 0

Program Program1;
var
s:string;
begin
write('Введите натуральноее число: ');
readln(s);
writeln('Полученное число: ', s+s)
end.

Читайте также

1.Информацию, отражающую истинное положение дел, называют: а)понятной; б)достоверной; в)объективной; г)полной; д)полезной. 2.Инф

иван8987

1.б
2.г
3.д
4.б
5.б
6.б
7.г
8.а
9.г
10.в
11.д
12.б
13.4бит
14.8
15.5120байт
16777216
1572864
1557
55.06
16.8
17.г

0 0

4 года назад

Найти сумму всех целых числа из промежутка от 300 до 600

Noferda [50]

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('s=',Range(300,600).Sum)
end.

Результат:
s=135450

0 0

4 года назад

CD объемом 700 Мб весит 15г. Сколько будет весить набор таких дисков, необходимый для полного копирования информации с жесткого

Катюха86

1 Гб =1024 Мб

320*1024=327680 Мб столько информации входит жесткий диск

327680:700=468,11428 =469 дисков потребуется ,, чтоб влезла вся информация

469*15=7035 гр=7кг 35 гр будет весить набор дисков

0 0

4 года назад

Прочитать ещё 2 ответа

С клавиатуры вводится два целых числа, обозначающих возраст человека и его пол (1 – мужской, 2 –женский). Составить программу, к

krivitskaja

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

begin
var age:=ReadInteger('Введите возраст:');
var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
if gender=1 then
 case age of
 0..13:Writeln('Мальчик');
 14..20:Writeln('Юноша');
 21..70:Writeln('Мужчина');
 else Writeln('Старец')
 end
else
 case age of
 0..13:Writeln('Девочка');
 14..20:Writeln('Девушка');
 21..70:Writeln('Женщина');
 else Writeln('Старушка')
 end
end.

0 0

4 года назад

Составить задачу на языке паскаль помогите:Составить программу которая выводит на экран 10 цифр подрчд идущих

devseeeva

Program n1;
var i: integer;
begin
for i:=1 to 10 do write(i,' ');
end.

0 0

3 года назад