Var x, y: real;
begin
readln(x, y);
if ((x > 0) and (y > 0)) then writeln('true') else writeln('false');
<span>end.
В первой четверти X и </span><span>Y положительны)</span>
var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
#include <iostream>
using namespace std;
int main(){
int sum=0, doz, dannyy;
cin >> doz;
for ( int i=0; (сюда условие);++i){
cin >> dannyy;
if(dannyy%7==0)
sum+=dannyy;
}
cout << sum;
return 0;
}
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
int N, I, k, a;
I = 1;
k = 0;
cin >> N;
while (N >= I)
{
cin >> a;
if (a % 3 == 0 && (a % 10 == 4 || a%10==-4))
{
k++;
}
I++;
}
cout << k << endl;
system("pause");
return 0;
}
привел исправленные варианты программ(в 1 в цикле for укажи условие)
Ответ :84
716 постоянно делим на 16 и ответ записываемых в обратном порядке ...все..