Плиз помогите! Нужна программа! Паскаль! Найти стоимость покупки книги и журнала в строке «цена одной книги 65 рублей, а
5-9 класс
|
журнала 120 рублей»
var s,slovo,cena:string;
i,err,stoim1,stoim2:integer;
begin
readln(s);
for i:= 1 to length(s) do
if s[i]<>' ' then
begin
slovo:=slovo+s[i];
if slovo = 'книги' then
cena:=s[i+2] +s[i+3]end
else
slovo:='';
Val(cena,stoim1,err) ;
for i:= 1 to length(s) do
if s[i]<>' ' then
begin
slovo:=slovo+s[i];
if slovo = 'журнала' then
cena:=s[i+2] +s[i+3]+s[i+4];
end
else
slovo:='';Val(cena,stoim2,err) ;
writeln(stoim1+stoim2);
end.
Другие вопросы из категории
18букв, а остальные - цифры (допускается использование 10 десятичных цифр). Каждый такой идентификатор в компьютерной программе записывается минимально возможным и одинаковым целым количеством байт (при этом используют посимвольное кодирование; все цифры кодируются одинаковым и минимально возможным количеством бит, все буквы также кодируются одинаковым и минимально возможным количеством бит). Оп
После стирки Петя обнаружил в кармане 4 обрывка с фрагментами IP-адреса. Эти фрагменты обозначены буквами
А Б В Г.Восстановите IP адрес. В ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IP-адресу
A 3.212
Б 21
В 2.12
Г .42
если кто то хорошо понимает, объясните пожалуйста)если нет то просто ответ
спасибо:))
Читайте также
7КЛАСС ИНФОРМАТИКА
1)Найти площадь квадрата и его перимитр ?
2)Найти стоимость покупки если приобретено x-штук товара по цене n-тг/кг
ЗАРАНЕЕ СПАСИБО ОТ ДУШИ !! ЭТО ОЦЕНКА ЗА ЧЕТВЕРТЬ
ВХОДНЫЕ ДАННЫЕ S- стоимость покупки с учетом скидки( если она предоставляется)
Необходимо удалить первый кратный 3 элемент массива.
program udalenie;
var i,n,k:integer;
a:array[1..1000] of integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
while i<=n do
if a[i] mod 3=0 then
begin
for i:=k to n-1 do
a[i]:=a[i+1];
n:=n-1; exit;
end;
for i:=1 to n do write(a[i],' ');
close (input);
close (output);
end.