Розгадайте кросворд. По горизонталі:
3. Операція, що виконана з електронним ли. стом, у темі якого зазначено літери Fw: 6. Поле заголовку електронного у якому зазначено адресу одержувача. 7. Операція, що виконана з електронним ли. стом, у темі якого зазначено літери Re: 8. Зображення в рядку отриманого електрон- ного листа, який містить вкладення. 9. Поле заголовку електронного у якому зазначено його стислий зміст.
По вертикалі:
1. Спроби шахраїв виманити Інтернету особисті дані. 2. Небажані електронні листи рекламного ха- рактеру. 4. Емоція, яку виражає смайл :) 5. Комп'ютер, призначений для зберігання та пересилання електронних повідомлень, - це поштовий...
❗
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.