21.03.2013, 10:11 | #1 (permalink) | ||
Новичок
Регистрация: 21.03.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Решите пожалуйста задачи по Delphi
Вывести: в первой строке количество чисел, которых было записано больше. во второй строке вывести количество четных чисел, предшествующих первому нечетному. Если нечетных чисел не встретилось, вывести 0. ПРИМЕР ВВОДА: 2 1 3 4 5 6 7 8 9 0 ПРИМЕР ВЫВОДА: 5 1 ПРИМЕР ВВОДА: 2 4 6 8 10 0 ПРИМЕР ВЫВОДА: 5 0
|
||
21.03.2013, 10:11 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти ссылки помогут вам в решении проблемы Паскаль. Решите задачу, пожалуйста Задачи с использованием численных методов, Delphi Delphi. Помогите, пожалуйста, решить две задачки Помогите пожалуйста в решении задач в DELPHI 7 Решите задачки в Паскале, пожалуйста Задачи в Delphi 7 |
21.03.2013, 12:08 | #2 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
консольный режим.
Код:
program Project2; {$APPTYPE CONSOLE} uses SysUtils; var a,i:integer; het,nehet:integer; bol:boolean; begin i:=0; het:=0; nehet:=0; Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.'); Read(a); bol:=true; While (a<>0) do begin if (a mod 2)=0 then begin inc(het); if bol then inc(i); end; if (a mod 2)=1 then begin inc(nehet); bol:=false; end; Read(a); end; Writeln('Otvet'); if nehet>het then Writeln(nehet); if het>nehet then Writeln(het); if nehet=het then Writeln(nehet,'=',het); if nehet=0 then Writeln(0) else Writeln(i); readln; readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|