Предмет: Информатика,
автор: lizunyar22032008
Пожалуйста помогите решить задачу через delete в программе Pascal ABC. Заранее Спасибо!
Приложения:
Санечка69:
а можно все условие увидеть? а то мне кажется, что не всегда так, как вы справшиваете
Ничего не понимаю, причем тут delete? что такое a? что нужно сделать то?
aaa блин, понятно, вывести символ строки с порядковым номером суммы двух чисел, ппц
begin
var a := 2;
var b := 4;
var s := 'program';
Delete(s, 1, a + b - 1);
Delete(s, 2, 1);
Print(s)
end.
var a := 2;
var b := 4;
var s := 'program';
Delete(s, 1, a + b - 1);
Delete(s, 2, 1);
Print(s)
end.
Нет
Не так
У меня вывелось а
А должно 2+4=a
Вместо Print(s) напишите Print($'{a} + {b} = {s}')
begin
var a := 2;
var b := 4;
var s := 'program';
Delete(s, 1, a + b - 1);
Delete(s, 2, s.Length-1);
Print($'{a} + {b} = {s}')
end.
var a := 2;
var b := 4;
var s := 'program';
Delete(s, 1, a + b - 1);
Delete(s, 2, s.Length-1);
Print($'{a} + {b} = {s}')
end.
Ответы
Автор ответа:
0
var a,b,i:longint;
s:string;
begin
readln(a);
readln(b);
read(s);
delete(s,1,a+b-1);
delete(s,2,length(s)-1);
write(a,'+',b,'=',s)
end.
Похожие вопросы
Предмет: Физика,
автор: sevrunovdanil
Предмет: Информатика,
автор: ajgulasajdulina
Предмет: Алгебра,
автор: amina1583
Предмет: Математика,
автор: zhenyadf
Предмет: Физика,
автор: svetanikit79