Var a,b: integer; r: real; begin readln(a); readln(b); r: =(a+b)/2; writeln(r); end.
Спасибо
Ответ дал: Гость
var t: integer;
begin
read(t);
while t > 6 do
t: =t-6;
case t of
0..2: write('green');
3: write('yellow');
4..6: write('red');
end;
end.
Ответ дал: Гость
12 var 3 s : string; 4 begin 5 readln (s ); 6 while pos ( 'с' ,s )> 0 do delete (s ,pos ( 'с' ,s ) ,1 ); 7 writeln (s ); 8 end. не уверена,но по-моему так
Популярные вопросы