Помогите решить задачи в паскале?

Gfhjkm10049900 21 февр. 2020 г., 18:27:32

1) тк не уточнила загружаем из файла, или вводим с клавиатуры, получай с этими двумя функциями.

В каталоге с программой должен быть файлик .

Txt

var a, filename : string[255] ;

chk, i, res : integer ;

f1 : Text ;

begin

res : = 0 ;

chk : = 0 ;

Writeln('1.

Input line') ;

Writeln('2.

Load from file') ;

Readln(chk) ;

if chk = 1 then

begin Writeln('Input line : ') ; Readln(a) ; for i : = 1 to Length(a) do if a[i] = '.

' then res : = res + 1 ; Writeln('Result : ', res) ;

end ;

if chk = 2 then

begin writeln('Input name of file : ') ; Readln(filename) ; filename : = filename + '.

Txt' ; Assign (f1, filename) ; Reset(f1) ; while not eof (f1) do begin readln (f1, a) ; writeln(a) ; for i : = 1 to Length(a) do if a[i] = '.

' then res : = res + 1 ; end ; Writeln('Result : ', res) ; Close (f1) ;

end ;

readln ;

end.

2) вводим не запятую, а точку, как разделитель частей числа

var a, substr : string[100] ;

x, res, i : integer ;

begin

writeln('Input number : ') ;

Readln(a) ;

substr : = '.

' ;

x : = Pos(substr, a) ;

for i : = 1 to x - 1 do res : = res + strtoint(a[i]) ;

Writeln('Result of first part : ', res) ;

res : = 0 ;

for i : = x + 1 to Length(a) do res : = res + StrToInt(a[i]) ;

Writeln('Result of second part : ', res) ;

readln ;

end.

Medko 27 апр. 2020 г., 21:52:53 | 10 - 11 классы

Написать программу в Паскале?

Написать программу в Паскале.

Подсчитать сумму четных целых чисел находящихся от одного до значения введенного пользователем.

Ирка2 9 авг. 2020 г., 08:08:46 | 10 - 11 классы

Дан текстовый файл, содержащий целые числа?

Дан текстовый файл, содержащий целые числа.

Найти количество чисел в файле и их сумму.

Alexlexay 25 мая 2020 г., 14:22:31 | 10 - 11 классы

Подсчитать количество (сумму)цифр в записи целого неотрицательного числа?

Подсчитать количество (сумму)цифр в записи целого неотрицательного числа.

(в паскале авс).

Артём00715 8 авг. 2020 г., 23:26:58 | 10 - 11 классы

Выполнить задачи в Паскале : 2?

Выполнить задачи в Паскале : 2.

2. Подсчитать количество предлогов "в" в данном предложении.

2. 3.

Удалить предлоги "с" в строке.

13Vlad 19 янв. 2020 г., 12:29:54 | 5 - 9 классы

Во введенной строке подсчитайте количество символов " * " и символов "?

Во введенной строке подсчитайте количество символов " * " и символов "!

". Информатика.

Паскаль.

Строки.

Camal111 4 мая 2020 г., 15:15:19 | 5 - 9 классы

Дан текстовый файл?

Дан текстовый файл.

Подсчитать количество символов в каждой строке.

Nastya69691 18 июл. 2020 г., 21:57:02 | 10 - 11 классы

Решите пожалуйста задачу в паскаль?

Решите пожалуйста задачу в паскаль.

Найти все целые двузначные числа, сумма цифр в которых равна 8.

Sanek05121983r 13 июн. 2020 г., 14:49:04 | 10 - 11 классы

Подсчитайте количество гласных латинских букв в строке?

Подсчитайте количество гласных латинских букв в строке.

(ПАСКАЛЬ).

Котубийца 1 авг. 2020 г., 08:24:58 | 5 - 9 классы

Задача по информатике?

Задача по информатике.

Найти сумму цифр данного целого числа.

Программа.

Паскаль.

Kzh1444 19 сент. 2020 г., 22:34:50 | 5 - 9 классы

Записать программу которая по двум введеным числам находит сумму дробных частей и сумму целых частей?

Записать программу которая по двум введеным числам находит сумму дробных частей и сумму целых частей.

На языке ПАСКАЛЕ.