Написать программу: 1. Ввод с клавиатуры строки данных; 2. Подсчитать длину строки и...

Question

Написать программу: 1. Ввод с клавиатуры строки данных; 2. Подсчитать длину строки и вывести на экран.

Answer 1

Program art;
 var s: string; 
 k: integer;
begin 
 writeln('Введите строку'); 
 readln(s); 
 k:=length(s); 
 writeln('Длина строки: ',k);    
end.

Comments

program art; var s: string; begin writeln('Введите строку'); readln(s); writeln('Длина строки: ', length(s)); end.

---

тут более простой вариант без дополнительной переменной

Answer 2

1.
var
a: string;
begin
readln(a);
writeln(a);
end;
2.
var
b: integer;
begin
readln(b);
writeln(length(b));
end.

Comments

ей не 2 разных задачи нужны, а одна

---

Она расставила цифры. Я думаю, надо сделать две разные заадачи

---

нет, это просто порядок действий, что должно быть в программе. В условии тем более

---

"Написать программу"