1)
Program hhh54;
var x:longint;
begin
read (x);
if ((x div 100) + ((x div 10) mod 10) + (x mod 10)) mod 2 <> 0 then write ('ЯВЛЯЕТСЯ')
else write ('НЕ ЯВЛЯЕТСЯ');
end.
2)
а)
Progran hhh54;
var i,k,x:longint;
begin
k:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then k:=k+1;
read (x);
end;
write (k);
<span>end.
</span>
б)
Progran hhh54;
var i,s,x:longint;
begin
s:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then s:=s+x;
read (x);
end;
write (s);
end.
Вставить- это вставить новый лист
Вырезать-это выреза выделенное
Копировать- это скопировать выделенное
Изображение-это вставить из компа какую-либо картинку
Рисунок Paint - это вроде нрисовать рисунок в paint, а затем переместить его в текстовый редактор
Дата и время - это вроде поставить на текс дату и время
<span>var
f: text;
s: string;
max: string := '';
begin
//в папке с программой должен быть файл "input.txt"
if FileExists('input.txt') then
begin
Assign(f, 'input.txt');
Reset(f);
while not Eof(f) do
begin
Readln(f, s);
if Length(s) > Length(max) then
max := s;
end;
Writeln('Самая длинная строка в файле: ');
Writeln(max);
Close(f);
end
else
Writeln('Файл не найден');
end.</span>
Пишу на QBasic
Допустим массив уже дан и заполнен
FOR I = 1 TO (Кол-во элементов массива)
IF A(I)=C THEN
X=X+1
END IF NEXT I
PRINT X
<em>Windows</em><span> 1251 вроде и будет</span>
