#include <iostream>
using namespace std;
int main() {
int a,b,c;
cin >> a >> b >> c;
cout << ((a/100)==0 && (b/100)==0 && (c/100)==0) << endl;
}
For i:=1 to n do begin
if not(a[i] mod 3=0) or (a[i]=0) then
a[i]:=1
else
k:=a[i];
end;
for i:=1 to n do
if (a[i]<k) and (a[i]<>1) then
k:=a[i];
j:=0;
for i:=1 to n do
if a[i]=k then
j:=j+1;
end;
writeln(j);
end.
260000 нужно умножить 1028 получим мб и еще 1028 получим кб
Ответ:
program z1;
var a, b: integer;
begin
if a mod 10 < b mod 10 then
begin
write(a mod 10);
end
else
begin
write(b mod 10);
end;
end.
Var x: real;
begin x:=1000*1.3*1.4;
writeln(' квартплата = ',x);
<span>end.
</span>