Var n:integer;
begin
write('Введите двузначное число='); readln(n);
if n mod ((n mod 10)+(n div 10))=0 then Writeln('да, делится')
else Writeln('нет, не делится');
end.
Главное слово ИНФОРМАЦИЯ(дальше слова идут на каждую букву, начиная с первой)
СМИ - 1) Сокращенная аббревиатура средств распростанения массовой информации.
Книги - 2) Одно из видов печатной продукции, состоящее из сброшюрованных или отдельных бумажных листов(страниц) на которые нанесена графическая или текстовая информация?
ДЕЗИНФОРМАЦИЯ - 3) Заведомо ложная информация по другому?
ОБЩЕНИЕ - 4) Коммуникативный способ получать информацию?
ИСТОРИЯ - 5) Один из способов получать информацию о развитии человечества?
КОМПЬЮТЕР - 6) Устройство открывающее доступ к огромному количеству информации.
МАССОВАЯ - 7) Вид информации <span>содержащий тривиальные сведения и оперирующий набором понятий, понятным большей части </span>социума это?<span>
</span>СОЦИУМ - 8) Группа людей связных между собой теми или иными отношениями и обменивающиеся информацией называется?
ИСТИННАЯ - 9) Как по другому называется достоверная информация?
АКТУАЛЬНАЯ - 10) Как называется информация, ценная в данный момент времени?
такой сойдет?
<span />
Это не шифр цезаря это Атбаш
1) набор символов отделяемых проблами
2) набор символов отделяемых переводами строки
3) тут трудно сказать, скорее это чтото динамическое
4) я думаю что редактирование все же, просмотр реже
5) редактирование это изменение набора символов текста, так же впринцепе сюда относится и форматирование текста
6) Которые можно проводить в текстовом редакторе? создать, сохранить, сохранить с новым именем (а ля скопировать), открыть
1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.