program sam;
uses crt;
type tmasi=array[1..50]of integer;
var ch:integer;
ss,s,k,i:byte;
z:tmasi;
begin
write('Ââåäè ÷èñëî:'); readln(ch);
i:=0;
s:=0;
ss:=0;
while ch <>0 do
begin
inc(i);
z[i]:=ch mod 10;
ch:=ch div 10;
end;
k:=i;
for i:=1 to k do
if z[i]=4 then inc(s)else
if z[i]=7 then inc(ss);
if (s=0)and(ss=0)then writeln(' ÷èñëå íåò ÷èñåë 4 è 7') else
if (s<>0)and(ss<>0)then writeln(' ÷èñëå ïðèñóòñâóþò ÷èñëà 4 è 7');
if ((s<>0)and(ss=0))or((s=0)and(ss<>0))then writeln(' ÷èñëå ïðèñóòñòâóþò ëèáî òîëüêî 4 ëèáî òîëüêî 7');
end.
Объяснение:
#include <iostream>
using namespace std;
int main()
{
int a, b, c, d;
cin >> a >> b >> c >> d;
if (a%b == 0 || b%a == 0) cout << endl << a << ", " << b;
else if (a%c == 0 || c%a == 0) cout << endl << a << ", " << c;
else if (a%d == 0 || d%a == 0) cout << endl << a << ", " << d;
else if (b%c == 0 || c%b == 0) cout << endl << b << ", " << c;
else if (d%c == 0 || c%d == 0) cout << endl << c << ", " << d;
return 0;
}
Поделитесь своими знаниями, ответьте на вопрос:
А) “наличия аттестата о среднем образовании достаточно для поступления в институт”; б) “наличие аттестата о среднем образовании необходимо для поступления в институт”; в) “если целое число делится на 6, то оно делится на 3”; г) “подобие треугольников является необходимым условием их равенства”; д) “подобие треугольников является необходимым и достаточным условием их равенства”; е) “треугольники подобны только в случае их равенства”; ж) “треугольники равны только в случае их подобия”; з) “равенство треугольников является достаточным условием их подобия”; и) “для того, чтобы треугольники были неравны, достаточно, чтобы они были неподобны”; к) “для того, чтобы четырёхугольник был квадратом, достаточно, чтобы его диагонали были равны и перпендикулярны”.