Первая программа:
<!DOCTYPE html>
<html>
<head>
<style>
body {
text-align: center;
}
form {
display: inline-block;
}
form > button {
width: 100%;
}
</style>
<script>
function Privetstvie()
{
var name1 = "Моё имя";
var name = document.getElementById("Pole_vvoda_imeni").value;
var Pole_vuvoda_privetstviya = document.getElementById("Pole_vuvoda_privetstviya");
if (name === name1)
{
Pole_vuvoda_privetstviya.innerHTML = "Привет мне!";
} else {
Pole_vuvoda_privetstviya.innerHTML = "Привет, незнакомец";
}
}
</script>
</head>
<body>
<form>
<div>
<label for="Pole_vvoda_imeni">Пожалуйста, введите своё имя:</label>
<input id="Pole_vvoda_imeni" type="text">
</div>
<button type="button" onClick="Privetstvie();">Поздароваться</button>
<div id="Pole_vuvoda_privetstviya"></div>
</form>
</body>
</html>
____________________________________________
Вторая программа:
<!DOCTYPE html>
<html>
<head>
<style>
body {
text-align: center;
}
form {
display: inline-block;
}
form > button {
width: 100%;
}
</style>
<script>
function Privetstvie()
{
var name1 = "Моё имя";
var name2 = "Имя друга";
var name3 = "Имя другого друга";
var name = document.getElementById("Pole_vvoda_imeni").value;
var Pole_vuvoda_privetstviya = document.getElementById("Pole_vuvoda_privetstviya");
switch (name)
{
case name1:
Pole_vuvoda_privetstviya.innerHTML = "Привет, мне!";
break;
case name2:
Pole_vuvoda_privetstviya.innerHTML = "Привет, "+name2+"!";
break;
case name3:
Pole_vuvoda_privetstviya.innerHTML = "Привет, "+name3+"!";
break;
default:
Pole_vuvoda_privetstviya.innerHTML = "Привет, незнакомец";
}
}
</script>
</head>
<body>
<form>
<div>
<label for="Pole_vvoda_imeni">Пожалуйста, введите своё имя:</label>
<input id="Pole_vvoda_imeni" type="text">
</div>
<button type="button" onClick="Privetstvie();">Поздароваться</button>
<div id="Pole_vuvoda_privetstviya"></div>
</form>
</body>
</html>
Ответ на картинке,решали уже мы это
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var adelim:=' .,;:!?-'.ToCharArray;
var s:=ReadlnString;
Writeln(25*'- ');
var c:=ReadlnChar('Буква для поиска слов:'); Writeln(25*'- ');
var ww:=s.ToWords(adelim).Where(w->w.First=c);
foreach var w in ww do begin
var i:=Pos(w,s);
Delete(s,i,w.Length); Insert(w.Inverse,s,i)
end;
s.Println; Writeln(25*'- ');
Writeln('Предложений всего: ',s.ToWords('.').Count)
end.
Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if a