Программирование паскаль. Где-то ошибка. Даже просто уже посреди программы понавставлял write(OutPut, '2'); и даже в самом конце оно есть, но файл output все равно пустым создаётся, без текста.
var
s, y, h, n, x: Integer;
InPut, OutPut: Text;
begin
assign(InPut,'c:\input.txt');
assign(OutPut,'c:\output.txt');
reset(InPut);
rewrite(OutPut);
read(InPut, y);
write(OutPut, '1');
for var i:=1 to y do
begin
read(InPut, s);
if s mod 2 = 0 then write(OutPut, s, ' ');
end;
writeln(OutPut);
reset(InPut);
read(InPut, y);
for var i:=1 to y do
begin
read(InPut, s);
if s mod 2 <> 0 then writeln(OutPut);
write(OutPut, s, ' ');
end;
for h:=1 to y do begin
if s mod 2=0 then
n:=n+1;
if s mod 2<>0 then
x:=x+1;
end;
if (n>x) then writeln(OutPut, 'YES')
else writeln(OutPut, 'NO');
write(OutPut, '2');
close(InPut);
close(OutPut);
end.
ответ на Python:
from random import randint
a,b = [i for i in range(10,51)],[i for i in range(10,51)]
v,p = 0,0
for i in range(int(input())):
print('Ход номер',i+1)
q,w = a[randint(1,len(a)-1)],b[randint(1,len(b)-1)]
v += w
p += q
a.remove(q)
b.remove(w)
print('Петя вытащил шарик с номером',q,'его счёт равен',p)
print('Ваня вытащил шарик с номером',w,'его счёт равен',v)
if p>v:
print('Победил Петя!')
elif p<v:
print('Победил Ваня!')
else:
print('Победила дружба!')
Объяснение:
Відповідь:
ТОЧНО ОТВЕТ ДАТЬ НЕ МОГУ НО МОЖНА ОРИЕНТИРОВАТСЯ ПО ЭТОМУ
begin //начало программы
var nk, nt, ck ,ct, s: integer // задание переменных типа действительные числа;
writeln('Введите количество карандашей'); //вывести на экран надпись
readln(nk); // запись ответа пользователя в переменную nk
writeln('Введите количество тетрадей'); //вывод на экран надписи
readln(nt); // запись ответа пользователя
writeln('Введите стоимость 1 карандаша'); // вывод на экран надписи
readln(ck); // запись ответа пользователя в переменную
writeln('Введите стоимость 1 тетради');
readln(ct);
s:=(nk*ck)+(nt*ct); // вычисление стоимости покупки
writeln('Стоимость покупки: ',s); // вывод стоимости покупки на экран
end. // конец программы
(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)
(nk-количество карандашей, nt-количество тетрадей)
Детальніше - на -
Пояснення: