Для примера-Вк
1)Безопасность сайта
Мы пишем вк.сом , или vk com ,когда компания реал забрала домен- это дает защиту для Официального Вк,т.к можно было бы зарегистрировать кто-то левый человек домен и он бы получал прибыль от рекламы,слитые пароли владельцу такого домена.
2)Удобство использования сайта,разделение для разных версий (комп.версия,телефон)
3)Для тестирования различных по,скриптов для сайтов и т.д
4)Разделение информации основного сайта(фото,текст,документы и т.д)
Смотрите код во вложении.
Ответ:
вот,думаю правильно, все на картинке написано
Надо ввести новую переменную, например y, присвоить её к 1: y:=1
Дальше, в первой задаче ничего не трогаем, во второй пишем: if b=4 then writeln (....) and y:=y+1 else ....
И тоже самое пишем в 3 задаче ( and y:=y+1 ), т.е., если он ответит на все вопросы правильно,то у будет равняться 5, ну и в конце пишем "врайтлн у" и всё))
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>1. Современное решение</u>
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
<u>Пример</u>
15.8 4.9 13
249.64 24.01 169
<u>2. А так, увы, все еще учат писать во многих школах...</u>
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.
