помогите кто чем может - Форум
Вторник, 06.12.2016, 08:40
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите кто чем может (забыл я уже программирование немного ,хотя бы одну задачу)
помогите кто чем может
Zheka24aДата: Среда, 19.10.2011, 18:01 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
1)Дана строка (могут быть буквы английского алфавита, цифры и символ «пробел»), содержащая не более 80 символов, но не менее 1 символа. Написать программу, которая подсчитывает количество слов во введённой строке, которые начинаются с символа «а». Слова разделяются одним (!) символом «пробел», который не может быть первым и последним символом, в строке.
2)Вместо того чтобы делать уроки, Вася смотрел футбольный матч и записывал счет, который показывался на табло, после каждого забитого гола. Например, у него могла получиться такая запись: 1:0,1:1, 1:2,2:2,2:3.
После этого он сложил все записанные числа: 1+0+1+1+1+2+2+2+2+3=15.
Написать программу, которая по сумме, получившейся у Васи, определяет, сколько всего мячей было забито в матче.
 
KOT_B_MEIIIKEДата: Воскресенье, 23.10.2011, 20:37 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code


program slova;
var str:string[80];
i,n,asl:integer;
s:set of char;
begin
s:=['0','1','2','3','4','5','6','7','8','9',' ','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];
asl:=0;
read(str);i:=1;
while ((str[i] in s) and (i<=80)) do
       begin
       if (str[i]='a') then inc(asl);
       while ((str[i]<>' ') and (str[i]in s)) do inc(i);
       if (str[i]=' ') then if (str[i+1]<>' ') then inc(i) else begin writeln ('ERROR! Two spaces!');asl:=0;break;end else if not (str[i]=str[i+1]) then writeln('ERROR!Invalid input data!');
       end;
writeln('kol-vo slov nachinaushihsya s bukvi "a"=',asl);
end.
первая

Code
program goals;
var n,i,count:integer;
begin
write ('Vvedite summu golov:');read(n);
i:=1;
while (n>0) do
       begin
       n:=n-i;
       count:=count+1;
       i:=i+1
       end;
if (n=0) then writeln('V matche bilo zabito ',count,' golov') else writeln('Vvedennoe chislo nepravilno.');
end.
вторая. вроде так)
 
Zheka24aДата: Понедельник, 24.10.2011, 17:46 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
спасибо большое дружище !!!
 
KOT_B_MEIIIKEДата: Понедельник, 24.10.2011, 22:26 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
пожалуйста)) только давай без мата)
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите кто чем может (забыл я уже программирование немного ,хотя бы одну задачу)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016