сделать сайт по информатике!
Задание примерно такое: создать сайт через блокнот html. Я немного разбираюсь в этом, а оценка решает аттестат. Если можете, скиньте текстом ГЛАВНОЕ НУЖНО: Разработайте Web-страницы, рассказывающие о вашем образовательном учреждении. На головной странице поместите рассказ о нем, руководителе. Рассказы о преподавателях, лучших учениках разместите на отдельных Web-страницах. Разместите рассказ об истории вашего образовательного учреждения на отдельной Web-странице. Укажите ссылки на страницы преподавателей, учеников, истории учреждения с головной страницы. Не забудьте установить ссылки возврата с этих Web-страниц на головную страницу.
program raf105;
var
sum: integer;
begin
for var i:=1 to 100 do
if i mod 2 = 0 then sum:= sum + i;
writeln('Вывод: ',sum);
end.
2.program raf105;
var
glas: string:= 'аяоёуюыиэе';
input: string;
glasCount: integer;
begin
write('Введите слово: ');
readln(input);
lowerCase(input);
for var i:= 1 to length(input) do
for var j:= 1 to length(glas) do
if input[i] = glas[j] then inc(glasCount);
writeln('Гласных букв: ',glasCount);
end.
3.program raf105;
var
count: integer;
begin
for var i:=1 to 500 do
if i mod 2 <> 0 then inc(count);
writeln('Вывод: ',count);
end.
PascalABCТогда 2c+4r=128; c+2r=64 → c=64-2r, r=0,1,2,...32
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=Range(0,32).Select(r->(r,64-2*r));
Write('(Кролики-куры):'); s.Println
end.
Результат:
(Кролики-куры):(0,64) (1,62) (2,60) (3,58) (4,56) (5,54) (6,52) (7,50) (8,48) (9,46) (10,44) (11,42) (12,40) (13,38) (14,36) (15,34) (16,32) (17,30) (18,28) (19,26) (20,24) (21,22) (22,20) (23,18) (24,16) (25,14) (26,12) (27,10) (28,8) (29,6) (30,4) (31,2) (32,0)