Ответ: Б!
Ответ А не подходит: Принтер не устройство ввода.
Ответ В не подходит: Монитор не устройство воода.
Ответ Г не подходит: Флеш-память не устройство ввода!
Var s : String;
Begin
s:='конкурс';
Writeln(s);
Writeln(s[6]+s[5]+s[3]+s[2]);
Writeln(copy(s,4,2)+s[7]+s[2]+s[1]);
end.
For(int i=50;i>1;i--)
{
if ((i % 2) >0 )
cout <<i<<";"<<endl;
}
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
1. Вот так для чего-то решают в школе...
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
var
i,j,s:integer;
begin
// задание 1
s:=0;
for i:=1 to 10 do s:=s+i*i;
Writeln(s);
// задание 2
j:=0;
for i:=1 to 50 do
if i mod 2=0 then j:=j+1;
Writeln(j)
end.
<u>Результат</u>
385
25
А вот так можно это решить по-нормальному за минуту.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(1.To(10).Select(i->i*i).Sum); // задание 1
Writeln(Range(2,50,2).Count) // задание 2
end.
<u>Результат</u>
385
25