|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
19.05.2008, 21:15 | #1 (permalink) |
Новичок
Регистрация: 19.05.2008
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачки по Паскалю
1. Задано натуральное число a. Заканчивается ли оно на 0? 2. Найти все делители для заданного числа n. 3. Дано натуральное число n.Вычислить, входит ли цифра 3 в запись числа n. 4. Написать программу поиска четырёхзначного числа, которое при делении на C даёт в остатке B, а при делении на B даёт в остатке D. 5. Имеется целочисленный массив, состоящий из N элементов (N - чётное): Найти произведение элементов стоящих на нечётных позициях 6. Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном направлении. 7. Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку. Буду оч,оч,оч,очень благодарна за помощь!!!Спасибки заранее!)) |
19.05.2008, 21:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Лучше не спешить, а просмотреть все темы которые были ранее Помогите решить две паскальные задачки пожалуйста Решить задачки Помогите решить задачки в Pascal Помогите решить задачу по Паскалю. Срочно, пожалуйста. Помогите пожалуйста решить задачки на C++Builder 6. Заранее благодарю Помогите срочно решить задачу по паскалю. |
20.05.2008, 10:27 | #2 (permalink) | |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
Цитата:
cf : set of '0'..'9'; var s:string[30]; cifr:cf; i,k:integer; begin readln(s); cifr:=['0','1','2','3','4','5','6','7','8','9']; k:=0; for i:=1 to length(s) if s[i] in cifr then k:=k+1; writeln (k); end. |
|
20.05.2008, 10:29 | #3 (permalink) | |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
Цитата:
a:real; begin if a mod 10 = 0 then writeln ('da') else writeln (net); end. |
|
20.05.2008, 10:31 | #4 (permalink) | |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
Цитата:
n,i:integer; begin readln(n); writeln('Все делители числа N'); for i:=1 to n do if n mod i = 0 then writeln(i); end. |
|
20.05.2008, 10:34 | #5 (permalink) | |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
Цитата:
i,c,b,d:integer begin readln(c,b,d); for i:=1000 to 9999 do if (i mod c = b) and (i mod b =d) then writeln(i); end. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.05.2008, 10:37 | #6 (permalink) | |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
Цитата:
mas:array [1..100] of integer; proizv:longint; i,n:integer; begin readln(n); for i:=1 to n do readln(a[i]); proizv:=1 for i:=1 to n do if i mod 2 <> 0 then proizv:=proizv*a[i]; writeln(proizv); end. |
|
20.05.2008, 17:25 | #7 (permalink) | |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
Цитата:
fl,n,i:integer; s:string[5]; begin readln(n); str(n,s); {стандартная процетудара преобразует значиние числа в его строковый вид} fl:=0; for i:=1 to length(s) do if s[i]='3' then fl:=1; if fl=1 then writeln('входит') else writeln('не входит'); end. |
|
20.05.2008, 17:56 | #8 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
bubuka
Мне лень сегодня думать, мне начальство на работе все мозги в..ло
__________________
Убить всех человеков! |
20.05.2008, 18:05 | #9 (permalink) | |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
Цитата:
a,b:array [1..50,1..50] of integer; i,j,n:integer; begin readln(m); for i:=1 to m do for j:=1 to m do readln(a[i,j]); for i:=1 to m do for j:=1 to m do b[j,i]:=a[i,j]; writeln('Вывод повернутой матрицы'); for i:=1 to m do begin for j:=1 to m do write(b[i,j],' '); writeln; end; end. |
|
20.05.2008, 21:41 | #10 (permalink) |
Новичок
Регистрация: 19.05.2008
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Большое спасибо всем кто помог и хотел помочь мне сделать эти задания!!!))Чтоб я без вас делала!!!))
Кстати я тоже учусь в МЭСИ)) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|