⇢ Вопросы и ответы ⇢ Компьютеры, Связь

Станислав Бушев

Помогите пожалуйста записать программу на паскале. Условие в описании. Сумма нечетных чиселОпределить сумму нечетных чисел на интервале от А до В Ограничения:A,B - целые числа от 0 до 50000. B может быть больше A Формат входных данных:Два целых числа Формат выходных данных:Целое число Пример 1Входные данные:1 10 Выходные данные:25 Пример 2Входные данные:20 15 Выходные данные:51

не буду писать типа - отпиши на мыло а потом ...(делают так - потом $ требуют)
а хочу посоветовать очень полезный сайт по паскалю ПаскальГУРУ (вбейте в гугл ПаскальГУРУ) есть много готовых и бесплатных решений

Похожие вопросы

помогите решить, пожалуйста! 1. Семь целых чисел записали по кругу. Затем для каждых двух соседних чисел посчитали их сумму и записали между ними, а первоначальные числа стёрли. Получилась замкнутая цепочка из чисел 1, −5, 5, 22, 9, −1, 3. Найдите исходные семь целых чисел, в ответе укажите наибольшее из них. 2. По шоссе со скоростью 60 км/ч едет колонна машин длиной 300 метров. Проезжая мимо поста ДПС, каждая машина сбрасывает скорость до 40 км/ч. Какова будет длина колонны (в метрах) , когда все машины проедут пост ДПС? 3. У Ивана всего 28 одноклассников. У каждых двух из 28 одноклассников различное число друзей в этом классе. Сколько друзей у Ивана? 4. Ученик не заметил знак умножения между двумя трехзначными числами и написал одно шестизначное число, которое оказалось в семь раз больше их произведения. Найдите эти числа, в ответе укажите их сумму. 5. В семье 4 человека. Если Наташе удвоят стипендию, то общий доход всей семьи возрастет на 5%, если вместо этого маме удвоят зарплату – то на 15%, если же зарплату удвоят папе то на 25%. На сколько процентов возрастет доход всей семьи, если дедушке удвоят пенсию? 6. Илья выложил в ряд 2001 монету достоинством 1, 2 и 3 копейки. Оказалось, что между любыми двумя копеечными монетами лежит хотя бы одна монета, между любыми двумя двухкопеечными монетами лежат хотя бы две монеты, а между любыми двумя трехкопеечными монетами лежат хотя бы три монеты. Какое максимальное количество трехкопеечных монет могло быть у Ильи? 7. Сумма цифр в десятичной записи натурального числа n равна 100, а сумма цифр числа 44n равна 800. Чему равна сумма цифр числа 3n? 8. В строку в неизвестном порядке записаны все целые числа от 1 до 100. За один вопрос про любые 50 чисел можно узнать, в каком порядке относительно друг друга записаны эти 50 чисел. За какое наименьшее число вопросов гарантированно можно узнать, в каком порядке записаны все 100 чисел? 9. Счет в банке содержит 500 рублей. Банк разрешает совершать операции только двух видов: снимать 300 рублей или добавлять 198 рублей. Какую в итоге максимальную сумму можно снять со счета, если других денег нет? 10. Найдите наибольшее четырёхзначное число, все цифры которого различны и которое делится без остатка на 2, 5, 9 и 11.

Паскаль переделать прогу из двух в одну. Заранее спасибо! Как можно слепить 2 проги для вычисления студентов одного имени: №1 это запыс групы и их оценок, что нестоль важно, а №2 выбор одного имени №1program Laba5Prog;uses crt;const size=5;typeStudent = recordsurname,ownname,patronym:string;marks:recordsda,math,prog,alg:byte;end;end;typeSimpleGroup=array[1..size] of Student;var Group:SimpleGroup;function GetFromString(var str:string):string;var i:integer; tmpstr:string;begini:=1;while str[i]' ' doinc(i);tmpstr:=copy(str,1,i-1);delete(str,1,i);GetFromString:=tmpstr;end;procedure InFromFile(var Group:SimpleGroup);var f:text;tmpstr:string;i,err:integer;beginassign(f,'lab5.txt');reset(f);i:=1;while not EOF(f) dobeginreadln(f,tmpstr);tmpstr:=tmpstr+' ';Group[i].ownname:=GetFromString(tmpstr);Group[i].surname:=GetFromString(tmpstr);Group[i].patronym:=GetFromString(tmpstr);val(GetFromString(tmpstr),Group[i].marks.prog,err);val(GetFromString(tmpstr),Group[i].marks.sda,err);val(GetFromString(tmpstr),Group[i].marks.math,err);val(GetFromString(tmpstr),Group[i].marks.alg,err);inc(i);end;end;procedure OutData(const OutGroup:SimpleGroup);var i:integer;beginwriteln('NAME':10,'SURNAME':10,'PATRONYM':10,'PROG':5,'SDA':5,'MATH':5,'ALG':5);for i:=1 to size dobeginwriteln(Group[i].ownname:10,Group[i].surname:10,Group[i].patronym:10,Group[i].marks.prog:5,Group[i].marks.sda:5,Group[i].marks.math:5,Group[i].marks.alg:5);end;end; -----------------------------------------------------------------------------------------------------------------------------------------------------_________________________________________________________________________________________-----------------------------------------------------------------------------------------------------------------------------------------------____________________________________________________________________________________№2 Program z1;Uses crt;Typered=record;name,fam:string;end;vara,b:array[1..15] of red;i,j,k,l,n,kol:integer;cn,cf: string;writeln('Eoia ioai?a o?aieeia n iaeiaeiauie eiaiaie e oaieeeyie: ');for i:=1 to n-1 dobeginkol:=0;for j:=i+1 to n doif (a[i].name=a[j].name)thenbeginif l=1 thenbeginb[l].name:=a[j].name;b[l].fam:=a[j].fam;inc(l);end;k:=l;while k0 dobeginif (a[j].name=b[k].name) and (a[j].fam=b[k].fam) thenbegininc(kol);break;end;dec(k);end;if kol=0 thenbeginb[l].name:=a[j].name;b[l].fam:=a[j].fam;inc(l);end;end;end;writeln(b[l].name,' ',b[n-l].fam);for i:=1 to l dowriteln(b[i].name,' ',b[i].fam);end.

Помогите написать программу на free pascal c постусловием. Вводятся в строке через пробел целые числа, которые вам необходимо тут же напечатать. Признаком конца является число 0 (ноль) . После него тоже могут стоять числа, но их печатать ненужно. Ограничения. Длина строки ввода менее 250 Пример. Входные данные: 1 5 7 0 4 6 -4 Выходные данные: 1 5 7 0

Помогите написать программу на free pascal с использованием оператора repit (постусловием) Числа Фибоначчи 2Последовательность чисел Фибоначчи F[K] (целого типа) определяется следующим образом: F[1] = 1, F[2] = 1, F[K] = F[K-2] + F[K-1], K = 3, 4, ..Определить наименьшее число Фибоначчи, превышающее k. Ограничения. 0 < k < = 1000000 Входные данные: k Выходные данные: k-е число Фибоначчи Пример. Входные данные: 3 Выходные данные: 5

Двоичная система счисления и представление чисел в памяти Пк. Помогите пожалуйста решить!! !1. Развернутая форма числа 201(3)=2.3*4^3+1*4^0 - развернутая форма числла, которое равно _____(10), ________(4).3._______________- минимальное основание может иметь система счисления, если в ней записаны числа 250, 117, 634.В десятичной системе счисления числа 101,2 (4) , 25,4(8) соответственно равны ___________, _____________5.20(10)= __________(4) 26(10)____________(5)6.1011(2)+1001(2)=______(2)7.100(2)*11(2)=_____(2)8.Внутреннее машинное представление десятичных чисел, хранящихся в 7-разрядной ячейке памяти: 63(10)=_______, -12(10)=________9.Каким десятичным числам соответствуют следущие двоичные кода 10-разрядного представления целых чисел: 1100111010(2)=______(10), 01111 10111(2)=____(10)10.в 2-байтовом машинном слове хранятся числа A900(16)=_____(2),1234(16)=______(2)

Помогите составить по ГОСТ 19.701-90 3 блок схемы по 20 руб за каждую Вот условия и программы1) составьте блок схему вычисления суммы n первых натуральных чисел (n=3)Program lb2_3;uses crt;var n,i,s:integer;begin for i:=1 to 3 do Begin write('введите число ',i,'= ');readln(n); s:=s+n; End; writeln('сумма = ',s); readln;end.2) Функция Y=f(x) задана своим графиком. Составить алгоритм и программу, определяющую Y по заданному X.Program Lb4var3primer2;uses crt;var x:real;beginclrscr;write('x=');readln(x);if x0)and(x

Помогите пожалуйста! не могу решить вот эти задачи по С++: Задачи на циклы:1.Найти произведение целых чисел от 7 до 14.2.Урожай яблок в 1990 году составил 20 тонн. Далее каждые два года урожай уменьшался на 5%. В каком году суммарный урожай яблок превысит 90 тонн?Задачи на линейные алгоритмы:1.Запросите у пользователя курсы доллара и евро на сегодняшний день и имеющуюся у него рублёвую сумму, и рассчитайте сколько долларов и сколько евро он может купить на эти деньги.2.В школьном коридоре длинной 56 м нужно выкрасить пол. Выкрасив часть коридора длинной 22 м, израсходовали А кг краски. Сколько еще нужно краски, докрасить коридор?Задача на ветвление:Написать алгоритм в программу проверки, является ли данный четырёхугольник параллелограммом.

Помогите решить задачу в Паскале с циклом while Условие: Вычисление суммы нечетных чисел в интервале 0 - 10