Page
интегрированной
Up
среды
[3]
age
own
3. Запишите код программы с операторов
программирования для заданного алгоритма.
Алг Пример
Код программы
Нач
х=5
y=-6
если (х вывод (2)
кон алг
4. Покажите запись следующих математических выражений на языке программирования: [3]
4. Y = 5х + 3
5. Х = х2 +х+1.
6. Y= x(5+1)
7. Z = 1,
8. Х равен остатку от деления 19 на 5:
9. Z равен частному (целое) от деления 18 на
// PascalABC.Net 3.2
begin
Write(ReadlnString('->').ToWords.Where(x->x.Left(2)='со').Count)
end.
Пример:
-> Три собаки сосали одну косточку
2
А вот так (примерно, потому что обычно еще хуже) учат писать программы в школе...
var
s:string;
i,n,k,p:integer;
begin
Write('->'); Readln(s);
if Copy(s,1,2)='со' then k:=1 else k:=0;
Delete(s,1,3);
repeat
i:=Pos(' со',s);
if i>0 then begin
Inc(k);
Delete(s,1,i+3)
end
until i=0;
Writeln(k)
end.