Program n_10;
var a,b,c,x: integer; R:Boolean;
begin
WriteLn('Введите трехзначное число>>');
ReadLn(x);
a:=x div 1000;
b:= (x mod 1000) div 100;
c:=x mod 10;
R:= (a*b*c) mod 2 = 0;
WriteLn('Произведение цифр четно?',R)
end.
Ответ:
Нет, не являются, так как на наборе А = 0, В = 1 вернут разные значения
#include <iostream>
using namespace std;
int main()
{<span>
setlocale(0,"");</span><span>
int m,d;</span><span>
cout<<"введите номер месяца ";</span><span>
cin>>m;</span><span>
cout<<endl;</span><span>
cout<<"введите номер дня ";</span><span>
cin>>d;</span><span>
cout<<endl;
</span><span> if ((d==28) || (d==31) || (d==30) )</span><span>
cout<<"следующая дата "<<m+1<<". "<<1<<endl;
</span><span> else
</span><span> cout<<"</span>следующая дата<span> "<<m<<". "<<d+1<<endl;
</span><span> return 0;
</span>}
Program maxmin;
var x, y, z: integer;
max, min: integer;
begin
readln(x, y, z);
max:=x+y+z;
if x*y+z>max then max:=x*y+z;
if sqr(x)+sqr(y)-z > max then max:=sqr(x)+sqr(y)-z;
writeln(max);
min:=<span>x+y+1;
</span>if x*y*z<min then min:=x+y+1;
write(min+1);
end.
Количество слогов считаем по количеству гласных букв в слове.
Program pr;
uses crt;
var str,s: string;
a,i,j,len,k,kslog: byte;
Begin
Writeln('Введите предложение');
readln(str);
Writeln('Введите кол-во слогов');
readln(k);
Writeln('Слова с ',k,' слогами:');
Writeln;
len:=length(str);
a:=0;
kslog:=0;
for i:=1 to len do
Begin
if (str[i] = ' ') then
Begin
s:=copy(str,i+1,a);
for j:=1 to length(s) do
Begin
if s[j] in ['А','О','У','Э','Ы','Я','Ё','Ю','Е','И','а','о','у','э','ы','я','ё','ю','е','и'] then inc(kslog);
end;
if (k=kslog) then Writeln(s);
kslog:=0;
a:=0;
end
else a:=a+1;
end;
Writeln;
Writeln('Для завершения программы нажмите Enter');
readln;
end.<span> </span>
