Знатоки Этапы, которых стоит придерживаться при разработке любых баз данных: •Знакомство с исходными данными. •Разработка и создание отчетов для вывода данных на печать или в файл. •Создание презентаций и связей с ними.
•Разработка и создание форм для ввода данных в базу.
Оплела весь белый свет.
Не пройти детишкам мимо.
Что же это?
интернет
like 5 0 dislike
Он знает всё и даже больше,
И к нам на поспешит.
Любой вопрос, пусть очень сложный,
Мгновенно с лёгкостью решит.
Плетёт свою он паутину,
Хотя, по сути, не паук.
Он видит всё. Вы догадались?
А, ну-ка, что это за друг?
интернет
like 2 0 dislike
Это будто паутина,
В ней найдёшь ты всё о всех:
О животных, о машинах,
Будет дождь сегодня, снег?
Всё про мир и о планете
Прочитаешь в...
интернете
like 4 0 dislike
Её называют всемирная сеть,
Чего в этой сети только нет!
Она всё расскажет и даже покажет.
Она называется как?...
интернет
like 2 0 dislike
Он всех нас объединяет,
Обо всём на свете знает,
Он кино тебе покажет,
Обо всём тебе расскажет.
интернет
like 4 0 dislike
В нём есть игры и соцсети,
Фильмы, почта, курс валют.
Есть все новости планеты,
В нём танцуют и поют.
интернет
like 8 0 dislike
Средство связи редким было,
А сейчас — у всех оно.
Вот уже беспроводное,
Раньше — оптоволокно.
интернет
Представлю 3 программы два с массивом и один без массива
1)var a:array [1..10] of integer;
i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]=5 then k5:=k5+1;
if a[i]=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end.
2)var a:array [1..10] of integer;
i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a[i]);
if a[i]=5 then k5:=k5+1;
if a[i]=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end.
3)var a,i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
if n<=10 then begin
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a);
if a=5 then k5:=k5+1;
if a=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end;
end.