Решение Задач Pascal Abc If
Title: Задачник Pascal ABC, Author: Виктор Ярославцев, Length: 142 pages, Published: 2012-04-08. Следует отметить, что в миниверсию включены все задания, решения которых даются в книгах «Практикум по программированию на языке Паскаль» и «Основы программирования. Опубликовано в рубрике Программирование Метки: задачи на программирование, Паскаль, программирование. Использование операторов mod и div при решении задач в Паскаль ». Справка: год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. Var x: integer; begin readln(x); If ((x mod 4=0) and (x mod 1000)) or (x mod 400=0) then writeln('да') else writeln('нет') end.
Уже есть судебные прецеденты, подтверждающие, что гарантия не теряется. Между прочим, насчет драйверов на скрытом разделе - шутки из раздела 'ржу нимагу', ибо там либо дистрибутив Висты (с поддержкой данной линейки ноутов), либо драйвера присутствуют 'частично', но опять же, только под предустановленную ОС. Если не лень будет, найду в сети, или сами погуглите. Образы скрытых разделом ноутбуков asus. Что гарантия потеряется, естественно.
Textual Код к задаче: «Онлайн-программа в PascalABC - Pascal ABC» var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer; begin writeln('Викторина на тему 'Кино.Актеры'.' ); writeln('№ 1.Жанр фильма 'Красавица и чудовище ':'); writeln(' 1.мюзикл'); writeln(' 2.триллер'); writeln(' 3.детектив'); read(a); writeln('№ 2. Какой фильм был снят на основе книги:'); writeln(' 1.Иллюзия обмана'); writeln(' 2.Бэтмен против Супермена'); writeln(' 3.До встречи с тобой'); read(b); writeln('№ 3. Nikon s3300 инструкция.
Кто сыграл Гермиону Грейнджер:'); writeln(' 1.Эмма Уотсон'); writeln(' 2.Анджелина Джоли'); writeln(' 3.Эмма Робертс'); read(c); writeln('№ 4.Кем была Кара Делевинь в 'Отряд самоубийц':'); writeln(' 1.Харли Квинн'); writeln(' 2.Катана'); writeln(' 3.Чародейка'); read(d); writeln('№ 5. Как называют группу в 'Иллюзия обмана':'); writeln(' 1.всадники'); writeln(' 2.пенитраторы'); writeln(' 3.золотое трио'); read(e); writeln('№ 6. Как звали друга Шерлока Холмса:'); writeln(' 1.Миссис Хадсон'); writeln(' 2.доктор Ватсон'); writeln(' 3.Майкрофт Холмс'); read(f); writeln('№ 7. Как звали главного персонажа из 'Бегущий в лабиринте':'); writeln(' 1.Минхо'); writeln(' 2.Алби'); writeln(' 3.Томас'); read(g); writeln('№ 8.Сколько сезонов 'Шерлок Холмс':'); writeln(' 1.5сезона'); writeln(' 2.4сезона'); writeln(' 3.3сезона'); read(h); writeln('№ 9. Кто сыграл Доктора Стрэнджа:'); writeln(' 1.Бенедикт Камбербэтч'); writeln(' 2.Джонни Депп'); writeln(' 3.Уилл Смит'); read(i); writeln('№ 10.