Написать решение . 1) дана непустая строка.вывести коды её первого и последнего символа. 2)дано целое число n (> 0) и символ c.вывести строку длины n, которая состоит из символов c. 3) дано чётное число n (> 0) и символы c1 и c2. вывести строку длины n, которая состоит из чередующихся символов с1 и с2 начиная с с1
Ответы
Case6. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.
program Case6;
var
N:Integer;
L:Real;
begin
Write('Введите номер единицы длинны: ');
Readln(N);
Write('Введите длинну отрезка: ');
Readln(L);
Case N of
1: Writeln(L/10);
2: Writeln(L*1000);
3: Writeln(L);
4: Writeln(L/1000);
5: Writeln(L/100);
end;
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Case6;
var
N:Integer;
L:Real;
begin
Write('Введите номер единицы длинны: ');
Readln(N);
Write('Введите длинну отрезка: ');
Readln(L);
Case N of
1: Writeln(L/10);
2: Writeln(L*1000);
3: Writeln(L);
4: Writeln(L/1000);
5: Writeln(L/100);
end;
end.
Case6. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.
program Case6;
var
N:Integer;
L:Real;
begin
Write('Введите номер единицы длинны: ');
Readln(N);
Write('Введите длинну отрезка: ');
Readln(L);
Case N of
1: Writeln(L/10);
2: Writeln(L*1000);
3: Writeln(L);
4: Writeln(L/1000);
5: Writeln(L/100);
end;
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Case6;
var
N:Integer;
L:Real;
begin
Write('Введите номер единицы длинны: ');
Readln(N);
Write('Введите длинну отрезка: ');
Readln(L);
Case N of
1: Writeln(L/10);
2: Writeln(L*1000);
3: Writeln(L);
4: Writeln(L/1000);
5: Writeln(L/100);
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос: