Исправленный вариант:
<span>program Kopeika;
var
a: integer;
begin
Writeln('Vvedite chislo');
Readln(a);
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: write(a, ' kopeika');
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: write(a, ' kopeiki');
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..99: write(a, ' kopeek');
end;
Readln;
</span>end.
#include <iostream>
int main (){ int y, x; std::cin>>x; switch (x) { case 3: y = 1; break; case 6: y = 2; break; default: y= 3; break; } std::cout<<y;}
<span>var a,b:integer;
<span>begin</span></span>
<span><span /></span><span><span>a:=10;
</span><span> b:=15;
if a>b then b:=a+b;
a:=a+b;</span></span>
<span><span>writeln(a);</span></span>
<span><span>writeln(b);</span></span>
<span><span>end;</span></span>
<span><span />
</span>
Ответ:
Program num1;
Uses crt;
Var
a :array [1..100] of integer;
i,k,n, s : integer;
Begin
clrscr;
s:=0;
write('K=');readln(k);
write('N=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] MOD k)=0 then s:=s+a[i];
writeln('S=',s);
End.
var i,s:integer;
Begin
s:=25;
for i:=26 to 70 do s:=s*i;
writeln(s);
end.
Нажми, что