Практическая работа «Проект» 1. Выберите одну тему для вашего проекта: Московские высотки Метро. Подземный город. Арбат Большой театр Бульварное кольцо Москвы 2. Найдите в сети интернет материал по выбранной теме, сохраните картинки для последующей работы. 3. Используйте полученную информацию для создания документа в программе Microsoft Word. Основные требования: шрифт Arial или Times New Roman, размер 12-14 пт, выравнивание заголовка по центру, основного текста по ширине, абзацный отступ 1 см, обтекание картинок текстом по контуру. 4. Работа не должен превышать двух страниц. Не забудьте вставить скаченные изображения и указать используемые материалы.
Ответы
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var k:=0;
var n:=ReadInteger();
var nmax:=0;
while n<>0 do begin
Inc(k);
if n mod 10 = 0 then
if n>nmax then nmax:=n;
n:=ReadInteger()
end;
var cntrl:=ReadInteger();
Writeln('Получено ',k,' чисел');
Writeln('Полученное контрольное значение: ',cntrl);
Writeln('Вычисленное контрольное значение: ',nmax);
if cntrl=nmax then Writeln('Контроль пройден')
else Writeln('Контроль не пройден')
end.
Тестовое решение:
53
16
40
9
10
32
74
0
40
Получено 7 чисел
Полученное контрольное значение: 40
Вычисленное контрольное значение: 40
Контроль пройден
begin
var k:=0;
var n:=ReadInteger();
var nmax:=0;
while n<>0 do begin
Inc(k);
if n mod 10 = 0 then
if n>nmax then nmax:=n;
n:=ReadInteger()
end;
var cntrl:=ReadInteger();
Writeln('Получено ',k,' чисел');
Writeln('Полученное контрольное значение: ',cntrl);
Writeln('Вычисленное контрольное значение: ',nmax);
if cntrl=nmax then Writeln('Контроль пройден')
else Writeln('Контроль не пройден')
end.
Тестовое решение:
53
16
40
9
10
32
74
0
40
Получено 7 чисел
Полученное контрольное значение: 40
Вычисленное контрольное значение: 40
Контроль пройден
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сор 1 по информатике 6 класс 2 четверть 5 задание
Автор: Жуков219
3.Виконати такі операції над двійковими числами:11110111+11110001, 111101*111
Автор: sakh2010kprf7
ОЧЕНЬ решите задания на фото.
Автор: avon-central
Как создать запрос в Access с М-Я (буквы)? Запрос с параметром.
Автор: ranocchio6
Якщо тебе немає інтернеті то ти не існуеш обґрунтуйте
Автор: alex07071
Вот вордовсский документ со всеми критериями.
Говорю сразу, что материала на 2 листа, и ещё третий для написания использованной литературы.
Но огромное Не удаляй ответ. Я потратил своё затраченное время.
А так удачи тебе в учёбе)